####

Disclaimer: The purpose of the Open Case Studies project is to demonstrate the use of various data science methods, tools, and software in the context of messy, real-world data. A given case study does not cover all aspects of the research process, is not claiming to be the most appropriate way to analyze a given data set, and should not be used in the context of making policy decisions without external consultation from scientific experts.

Motivation

According to a recent report, overall tobacco use increased in youths (middle school and high school students) in the United States in 2017 and 2018, despite previous years of declining use.

This major increase is attributed to an increase in the use of electronic cigarette (e-cigarette) products.

E-cigarettes are referred to by many different names, including but not limited to:

  1. Electronic nicotine delivery systems (ENDS)
  2. Vapes
  3. e-hookahs
  4. vape pens
  5. tanks
  6. mods

The devices vary greatly:

[source]

See this CDC guide and the American Lung Association website for more information.

The report found that:

During 2017–2018, current use of any tobacco product increased 38.3% (from 19.6% to 27.1%) among high school students and 28.6% (from 5.6% to 7.2%) among middle school students; e-cigarette use increased 77.8% (from 11.7% to 20.8%) among high school students and 48.5% (from 3.3% to 4.9%) among middle school students.

In 2018, the Federal Drug Administration (FDA) in the United States stated that e-cigarette usage use among youth reached:

“nothing short of an epidemic proportion of growth”

In this case study, we will be investigating the same data used in the report that generated the above findings. This data comes from the The National Youth Tobacco Survey (NYTS).

Gentzke, Andrea S., Melisa Creamer, Karen A. Cullen, Bridget K. Ambrose, Gordon Willis, Ahmed Jamal, and Brian A. King. “Vital Signs: Tobacco Product Use Among Middle and High School Students - United States, 2011-2018.” MMWR. Morbidity and Mortality Weekly Report 68 (6): 157–64 (2019).

Main Questions

Our main question:

  1. How has tobacco/nicotine and e-cigarette use by American youths changed since 2015?
  2. How do vaping rates compare between males and females?

  3. What vaping brands and flavors appear to be used the most frequently?
    We will base this on the following survey questions:
    > “During the past 30 days, what brand of e-cigarettes did you usually use?”
    >" What flavors of tobacco products have you used in the past 30 days?"

  4. Have vaping rates possibly influenced tobacco/nicotine use?

Learning Objectives

In this case study, we will cover how to import data from multiple files efficiently, how to import data from excel files, and how to make a variety of visualizations to compare multiple groups across time. We will also demonstrate how to work with codebooks. We will cover the concept of survey weighting and introduce the srvyr package. We will discuss the difference between pooled cross-sectional data and panel data. We will especially focus on using packages and functions from the Tidyverse for wrangling data, such as tidyr and dplyr and for visualization, such as as ggplot2. The tidyverse is a library of packages created by RStudio. While some students may be familiar with previous R programming packages, these packages make data science in R especially efficient.

We will begin by loading the packages that we will need:

Package Use
here to easily load and save data
readxl to import the data in the excel files
stringr to manipulate the character strings within the data
purrr to import the data in all the different excel and csv files efficiently
dplyr to arrange/filter/select/compare specific subsets of the data
readr to import the CSV file data
tidyr to rearrange data in wide and long formats
ggplot2 to make visualizations with multiple layers
scales to allow us to look at the colors within the viridis package
viridis to make plots with a color palette that is compatible with color blindness
forcats to allow for reordering of factors in plots
syrvr to use survey weights
cowplot to allow plots to be combined

The first time we use a function, we will use the :: to indicate which package we are using. Unless we have overlapping function names, this is not necessary, but we will include it here to be informative about where the functions we will use come from.

Context

According to the cited Morbidity and Mortality Weekly Report this was what was already known about this topic and the implications of this study:

Importantly, the vapors used in e-cigarettes contain harmful chemicals:

source

E-cigarette usage has also been associated with lung injury:

source

See here for additional information about the potential health effects of e-cigarettes in teens and young adults.

Limitations

There are some important considerations regarding this data analysis to keep in mind:

  1. The data included in the National Youth Tobacco Survey (NYTS) does not follow the same individual students over time. A longitudinal study that does follow the same individuals over time collects data called panel data. The data in this study is called pooled cross-sectional data, and is obtained from random collection of observations across time.

According to Wikipedia:

Panel data differs from pooled cross-sectional data across time, because it deals with the observations on the same subjects in different times whereas the latter observes different subjects in different time periods

  1. The data include percentages of students reporting use of each particular tobacco product, but the survey questions did not ask the relative amount of use of one product compared to another. For example the survey included questions like:“What flavors of tobacco products have you used in the past 30 days?” but did not ask how often one flavor was used by the same individual over another.

While gender and sex are not actually binary, the data used in this analysis only contain information for groups of individuals who answered the survey questions as male or female.

What are the data?

The data in this case study comes from the National Youth Tobacco Survey (NYTS) which is an annual survey that asks students in high school and middle school (grades 6-12) about tobacco usage in the United States of America.

The data for this survey is freely available online at this website with data from 1999, 2000, 2002, 2004, 2006, 2009, and 2011-2019. We will be using data from 2015-2019 due to the fact that these years are the most recent that asked questions regarding e-cigarette usage.

Each year includes documentation, such as a codebook and an excel file containing the data:

Therefore, since we are using data from 2015-2019, the data we are interested in are located in 5 different excel files, one for each year, each with its own codebook.

The codebook contains information describing the data within the excel file.

As you can see the excel file contains very short variable names and numeric values, and it is not clear what they mean without the codebook:

The codebook explains what the variables (the columns) are:

And the codebook explains what the values for each variable are:

We will explain more later about what the values on the right indicate.

The reason that there are codebooks for each year is because the questions asked each year varied slightly.

The data in this survey are pooled cross-sectional data. In this study design, different subsets of students are surveyed each year and it is not clear which, if any, individuals participate more than once from one year to the next.

Data Import

Reading in the excel files

Since these excel files are so large (each has roughly 20,000 rows), it takes a bit of time for the data to load. To make the process faster, we previously imported these files, selected only the columns relevant to our questions of interest, and saved these data subsets as comma-separated (.csv) files.

Click here for details on how the data were originally imported

First we created a vector of file names of all the different excel files. Using the here() function of the here package, we looked in all the directories of the project. The list.files() function looked for all files with .xlsx within these sub-directories.

[1] "docs/2015-nyts-dataset-and-codebook-microsoft-excel/nyts2015.xlsx"
[2] "docs/2016-nyts-dataset-and-codebook-microsoft-excel/nyts2016.xlsx"
[3] "docs/2017-nyts-dataset-and-codebook-microsoft-excel/nyts2017.xlsx"
[4] "docs/2018-nyts-dataset-and-codebook-microsoft-excel/nyts2018.xlsx"
[5] "docs/2019-nyts-dataset-and-codebook-microsoft-excel/nyts2019.xlsx"

All the files were read using read_excel() of the readxl package. Using the map() function of the purrr package this was done efficiently for all of the excel files in the vector using one command. The . is used to indicate that we want to apply the read_excel() function to each element of the data that we just piped into the map() function.

Here we also used the %>% pipe which can be used to pass the input from one function to another for later sequential steps.

This created a single list of tibbles (one for each file).

The elements of this list are in the same order as the elements of the excel_files vector, so we can extract the data for a particular file (year) by selecting a certain element of the list. However, it is safer to be able to select the data from this list for a specific year using a name based on the original vector of file names. We extracted a name from each Excel file name using the str_extract() function of the stringr package. Here we are keeping occurrences of the character string “nyts201” followed by a “5”,“6”,“7”,“8”, or “9”.

[1] "nyts2015" "nyts2016" "nyts2017" "nyts2018" "nyts2019"

These names became the names of the tibbles in the list of tibbles.

Specific columns were selected using the select() function of dplyr from each of the tibbles using the variable name, as identified in the codebook as being of interest for our analysis. In some cases functions like starts_with() of the dplyr package were used to select several variables at once. Most of the survey questions about tobacco use start with an "E" or a "C" according to the codebooks.

tbl_files[["nyts2015"]] <- tbl_files[["nyts2015"]] %>%
    dplyr::select(psu, #Primary Sampling Unit
                  finwgt,#Analysis Weight
                  stratum,#Sampling stratum
                  Qn1, #Age
                  Qn2, #Sex
                  Qn3, #Grade
                  starts_with("E",
                              ignore.case = FALSE),
                  starts_with("C",
                              ignore.case = FALSE),
                  )


tbl_files[["nyts2016"]] <- tbl_files[["nyts2016"]] %>%
    dplyr::select(psu,
                  finwgt,
                  stratum,
                  Q1, #Age
                  Q2, #Sex
                  Q3, #Grade
                  starts_with("E",
                              ignore.case = FALSE),
                  starts_with("C",
                              ignore.case = FALSE),
                  Q50A, #Menthol # What flavors of tobacco products have you used in the past 30 days? (Select one or more)
                  Q50B, #Clove or spice
                  Q50C, #Fruit
                  Q50D, #Chocolate
                  Q50E, #Alcoholic Drink
                  Q50F, #Candy/Desserts/Other Sweets
                  Q50G, #Some Other Flavor Not Listed Here
                  Q50H #I Did Not Use Flavored Tobacco Products In the Past
                  ) 

tbl_files[["nyts2017"]] <- tbl_files[["nyts2017"]] %>%
    dplyr::select(psu,
                  finwgt,
                  stratum,
                  Q1, #Age
                  Q2, #Sex
                  Q3, #Grade
                  starts_with("E",
                              ignore.case = FALSE),
                  starts_with("C",
                              ignore.case = FALSE),
                  Q50A, #Menthol # What flavors of tobacco products have you used in the past 30 days? (Select one or more)
                  Q50B, #Clove or spice
                  Q50C, #Fruit
                  Q50D, #Chocolate
                  Q50E, #Alcoholic Drink
                  Q50F, #Candy/Desserts/Other Sweets
                  Q50G, #Some Other Flavor Not Listed Here
                  Q50H #I Did Not Use Flavored Tobacco Products In the Past
                  )

tbl_files[["nyts2018"]] <- tbl_files[["nyts2018"]] %>%
    dplyr::select(psu,
                  finwgt,
                  stratum,
                  Q1, #Age
                  Q2, #Sex
                  Q3, #Grade
                  starts_with("E",
                              ignore.case = FALSE),
                  starts_with("C",
                              ignore.case = FALSE),
                  Q50A, #Menthol # What flavors of tobacco products have you used in the past 30 days? (Select one or more)
                  Q50B, #Clove or spice
                  Q50C, #Fruit
                  Q50D, #Chocolate
                  Q50E, #Alcoholic Drink
                  Q50F, #Candy/Desserts/Other Sweets
                  Q50G, #Some Other Flavor Not Listed Here
                  Q50H #I Did Not Use Flavored Tobacco Products In the Past
                  )

tbl_files[["nyts2019"]] <- tbl_files[["nyts2019"]] %>%
    dplyr::select(psu,
                  finwgt,
                  stratum,
                  Q1, #Age
                  Q2, #Sex
                  Q3, #Grade
                  starts_with("E",
                              ignore.case = FALSE),
                  starts_with("C",
                              ignore.case = FALSE),
                  Q40, #Brand, e-cigarettes
                  Q62A, #Menthol # What flavors of tobacco products have you used in the past 30 days? (Select one or more)
                  Q62B, #Clove or spice
                  Q62C, #Fruit 
                  Q62D, #Chocolate
                  Q62E, #Alcoholic Drink
                  Q62F, #Candy/Desserts/Other Sweets
                  Q62G, #Some Other Flavor Not Listed Here 
                  )

A directory called data_reduced was created for the new .csv files using the base dir.create() function. A csv file was created for each of the tibbles in the list using the write_csv() function of the readr package. This was done all at once using the base mapply() function.

Now we will show how to read in the data from the five csv files that were created from the five different Excel files.

Data Exploration and Wrangling

Our goal in this section is to adjust or “wrangle” the data from each year into a common format so that we can combine the data sets across years for our analysis, and so that we have values in our variables that are correct and easy to interpret. We will need to understand what is the same and what is different across the data from different years, rename and recode the variables (e.g., by replacing the numbers 1 and 2 with the values “Male” and “Female” for the Sex variable), and combine the data. We will walk through these steps below.

First, let’s take a look at our data. We can get a good sense of it using the glimpse() function of the dplyr package.

Rows: 17,711
Columns: 29
$ psu        <chr> "015438", "015438", "015438", "015438", "015438", "015438"…
$ finwgt     <dbl> 216.7268, 324.9620, 324.9620, 397.1552, 264.8745, 264.8745…
$ stratum    <chr> "BR3", "BR3", "BR3", "BR3", "BR3", "BR3", "BR3", "BR3", "B…
$ Qn1        <dbl> 10, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,…
$ Qn2        <dbl> 2, 1, 1, 1, 2, 2, 1, 2, 1, 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, 2…
$ Qn3        <dbl> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 5, 5…
$ ECIGT      <dbl> 2, 1, 2, 1, 2, 1, 1, 1, 2, 2, 2, 2, 1, 2, 2, 1, 2, 1, 2, 1…
$ ECIGAR     <dbl> 1, 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 2…
$ ESLT       <dbl> 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ EELCIGT    <dbl> 2, 1, 2, 1, 2, 1, 1, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1…
$ EROLLCIGTS <dbl> 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2…
$ EFLAVCIGTS <dbl> 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ EBIDIS     <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ EFLAVCIGAR <dbl> 2, 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, 1, 2…
$ EHOOKAH    <dbl> 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ EPIPE      <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ ESNUS      <dbl> 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ EDISSOLV   <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ CCIGT      <dbl> 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ CCIGAR     <dbl> 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ CSLT       <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ CELCIGT    <dbl> 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ CROLLCIGTS <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ CFLAVCIGTS <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ CBIDIS     <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ CHOOKAH    <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ CPIPE      <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ CSNUS      <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…
$ CDISSOLV   <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2…

Updating the set of variables and their names

The easiest way of making it so that the data from the different years can be combined is by making sure the different data sets all contain the same variables that share the same names. In addition, giving the columns informative names will help make our code more readable. Currently, it isn’t very clear what most of the variables indicate since the variable names are uninformative on their own, without the code book.

We want to rename variables like Qn1 to something more meaningful like Age.

To do this we will use the rename() function of the dplyr package. The new name is always listed first before the =. This function will replace the old variable names with the new ones, i.e., after running the code below, there will no longer be a Qn1 variable in the data set, but there will be an Age variable instead. We will start working with the 2015 data, and then move on to the other years down below.

We also need to add new variables about usage of brands and specific flavors of e-cigarettes, because although later years have questions about this, this year unfortunately only has broad questions about flavors. Eventually we want to put the data from each year together, so we need the same variables for each year. Thus we need to add variables for brand and flavor to the 2015 data set that just contain missing values (NA).

To create these new variables, we will use the mutate function of the dplyr package. The mutate function can also be used to change the existing variables and create new variables from the old ones.

Now we can see how the data has changed:

Rows: 17,711
Columns: 38
$ psu                  <chr> "015438", "015438", "015438", "015438", "015438"…
$ finwgt               <dbl> 216.7268, 324.9620, 324.9620, 397.1552, 264.8745…
$ stratum              <chr> "BR3", "BR3", "BR3", "BR3", "BR3", "BR3", "BR3",…
$ Age                  <dbl> 10, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1…
$ Sex                  <dbl> 2, 1, 1, 1, 2, 2, 1, 2, 1, 2, 2, 2, 1, 2, 2, 1, …
$ Grade                <dbl> 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, …
$ ECIGT                <dbl> 2, 1, 2, 1, 2, 1, 1, 1, 2, 2, 2, 2, 1, 2, 2, 1, …
$ ECIGAR               <dbl> 1, 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ ESLT                 <dbl> 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, …
$ EELCIGT              <dbl> 2, 1, 2, 1, 2, 1, 1, 1, 2, 2, 2, 1, 2, 2, 2, 1, …
$ EROLLCIGTS           <dbl> 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, …
$ EFLAVCIGTS           <dbl> 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ EBIDIS               <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ EFLAVCIGAR           <dbl> 2, 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, …
$ EHOOKAH              <dbl> 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, …
$ EPIPE                <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ ESNUS                <dbl> 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ EDISSOLV             <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ CCIGT                <dbl> 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ CCIGAR               <dbl> 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ CSLT                 <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ CELCIGT              <dbl> 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ CROLLCIGTS           <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ CFLAVCIGTS           <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ CBIDIS               <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ CHOOKAH              <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ CPIPE                <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ CSNUS                <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ CDISSOLV             <dbl> 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, …
$ brand_ecig           <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ menthol              <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ clove_spice          <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ fruit                <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ chocolate            <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ alcoholic_drink      <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ candy_dessert_sweets <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ other                <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ no_use               <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …

The data for 2016-2018 have many common attributes, so we will want to write code that can be applied to all three data sets. To do this, we will use a function in R, which is basically a piece of code that can be applied to similar but different objects in R (e.g., the data tibbles from each of these three years). For more information on functions, see for example here.

These next 3 years have the same structure for many of the questions we are interested in. For example, they all have flavor questions, but not a brand question. Moreover, their variable names are consistent across the years; for each year, we want to replace the vague question name Q50A with the value menthol in all three data sets, and the same is true for the other flavor variables. For each of these years, we also want to create a variable brand_ecig that just contains NA values.

Since we want to perform the same modifications on the data from all three years, rather than repeating the same somewhat messy piece of code three times, we can do this more efficiently if we create a function to do all of these steps at once. Then we can use the map_at() function of the purrr package to apply the function we created (for renaming variables etc.) to the data from 2016-2018. By using vars() inside of the map_at() function we can specify what tibbles within our nyts_data list we want to include or exclude.

The final year, 2019, has a slightly different data structure compared to these earlier data sets. For example, it actually has a brand_ecig variable already, but does not contain a no_use variable. So we can’t use the same function for this data set, but have to write an individual code chunk.

Now let’s take a look at the variable names for each of the years using the map function from purrr.

$nyts2015
 [1] "psu"                  "finwgt"               "stratum"             
 [4] "Age"                  "Sex"                  "Grade"               
 [7] "ECIGT"                "ECIGAR"               "ESLT"                
[10] "EELCIGT"              "EROLLCIGTS"           "EFLAVCIGTS"          
[13] "EBIDIS"               "EFLAVCIGAR"           "EHOOKAH"             
[16] "EPIPE"                "ESNUS"                "EDISSOLV"            
[19] "CCIGT"                "CCIGAR"               "CSLT"                
[22] "CELCIGT"              "CROLLCIGTS"           "CFLAVCIGTS"          
[25] "CBIDIS"               "CHOOKAH"              "CPIPE"               
[28] "CSNUS"                "CDISSOLV"             "brand_ecig"          
[31] "menthol"              "clove_spice"          "fruit"               
[34] "chocolate"            "alcoholic_drink"      "candy_dessert_sweets"
[37] "other"                "no_use"              

$nyts2016
 [1] "psu"                  "finwgt"               "stratum"             
 [4] "Age"                  "Sex"                  "Grade"               
 [7] "ECIGT"                "ECIGAR"               "ESLT"                
[10] "EELCIGT"              "EHOOKAH"              "EROLLCIGTS"          
[13] "EFLAVCIGAR"           "EPIPE"                "ESNUS"               
[16] "EDISSOLV"             "EBIDIS"               "CCIGT"               
[19] "CCIGAR"               "CSLT"                 "CELCIGT"             
[22] "CHOOKAH"              "CROLLCIGTS"           "CPIPE"               
[25] "CSNUS"                "CDISSOLV"             "CBIDIS"              
[28] "menthol"              "clove_spice"          "fruit"               
[31] "chocolate"            "alcoholic_drink"      "candy_dessert_sweets"
[34] "other"                "no_use"               "brand_ecig"          

$nyts2017
 [1] "psu"                  "finwgt"               "stratum"             
 [4] "Age"                  "Sex"                  "Grade"               
 [7] "ECIGT"                "ECIGAR"               "ESLT"                
[10] "EELCIGT"              "EHOOKAH"              "EROLLCIGTS"          
[13] "EPIPE"                "ESNUS"                "EDISSOLV"            
[16] "EBIDIS"               "CCIGT"                "CCIGAR"              
[19] "CSLT"                 "CELCIGT"              "CHOOKAH"             
[22] "CROLLCIGTS"           "CPIPE"                "CSNUS"               
[25] "CDISSOLV"             "CBIDIS"               "menthol"             
[28] "clove_spice"          "fruit"                "chocolate"           
[31] "alcoholic_drink"      "candy_dessert_sweets" "other"               
[34] "no_use"               "brand_ecig"          

$nyts2018
 [1] "psu"                  "finwgt"               "stratum"             
 [4] "Age"                  "Sex"                  "Grade"               
 [7] "ECIGT"                "ECIGAR"               "ESLT"                
[10] "EELCIGT"              "EHOOKAH"              "EROLLCIGTS"          
[13] "EPIPE"                "ESNUS"                "EDISSOLV"            
[16] "EBIDIS"               "CCIGT"                "CCIGAR"              
[19] "CSLT"                 "CELCIGT"              "CHOOKAH"             
[22] "CROLLCIGTS"           "CPIPE"                "CSNUS"               
[25] "CDISSOLV"             "CBIDIS"               "menthol"             
[28] "clove_spice"          "fruit"                "chocolate"           
[31] "alcoholic_drink"      "candy_dessert_sweets" "other"               
[34] "no_use"               "brand_ecig"          

$nyts2019
 [1] "psu"                  "finwgt"               "stratum"             
 [4] "Age"                  "Sex"                  "Grade"               
 [7] "ECIGT"                "ECIGAR"               "ESLT"                
[10] "EELCIGT"              "EHOOKAH"              "EROLLCIGTS"          
[13] "EPIPE"                "ESNUS"                "EDISSOLV"            
[16] "EBIDIS"               "EHTP"                 "CCIGT"               
[19] "CCIGAR"               "CSLT"                 "CELCIGT"             
[22] "CHOOKAH"              "CROLLCIGTS"           "CPIPE"               
[25] "CSNUS"                "CDISSOLV"             "CBIDIS"              
[28] "CHTP"                 "brand_ecig"           "menthol"             
[31] "clove_spice"          "fruit"                "chocolate"           
[34] "alcoholic_drink"      "candy_dessert_sweets" "other"               
[37] "no_use"

It’s looking better! There are still some differences in the set of variables in the different years, but things are much closer.

Updating Values

Now that we have made some progress on the selection and names of the variables themselves, we will work on the values contained in the different variables.

We can start with updating the values for Age and Grade, so that they are more understandable.

Recall from the codebook for this year’s data set that Age isn’t listed in the way one might expect, i.e., it is not just a number of years, but a numerically valued categorical variable.

The same is true for Grade:

This is why it is so important to always check the codebook!!

We also want to replace the value of 19 for Age to be ">18" and the value of 13 for Grade to be replaced with "Ungraded/Other" Also according to the codebooks, numeric values of 1 indicate a survey answer of FALSE, while a value of 2 indicates TRUE. Sex needs to be recoded, but it is a bit unclear if it is encoded slightly differently across years.

Let’s create a function to make all these updates except for Sex. We will use the mutate function again, as well as mutate_all and recode to replace specific values of certain variables.

Now let’s update the Sex encoding:

It’s a bit difficult to tell if the encoding was the same across years, so let’s check using the count() function of the dplyr package.

According to the codebook, we should have:
1) 8,958 males in 2015 2) 10,438 males in 2016 3) 8,881 males in 2017
4) 10,069 males in 2018
5) 9,803 males in 2019

$nyts2015
# A tibble: 3 x 2
    Sex     n
  <dbl> <int>
1     1  8958
2     2  8622
3    NA   131

$nyts2016
# A tibble: 3 x 2
    Sex     n
  <dbl> <int>
1     1 10438
2     2 10082
3    NA   155

$nyts2017
# A tibble: 3 x 2
    Sex     n
  <dbl> <int>
1     1  8881
2     2  8815
3    NA   176

$nyts2018
# A tibble: 3 x 2
    Sex     n
  <dbl> <int>
1     1 10069
2     2  9920
3    NA   200

$nyts2019
# A tibble: 3 x 2
  Sex       n
  <chr> <int>
1 .N      116
2 1      9803
3 2      9099

Thus, it looks like males were encoded as 1 for each year.

  1. 8,958 males in 2015 where 1 = male
  2. 10,438 males in 2016 where 1 = male
  3. 8,881 males in 2017 where 1 = male
  4. 10,069 males in 2018 where 1 = male
  5. 9,803 males in 2019 where 1 = male
$nyts2015
# A tibble: 3 x 2
  Sex        n
  <fct>  <int>
1 male    8958
2 female  8622
3 <NA>     131

$nyts2016
# A tibble: 3 x 2
  Sex        n
  <fct>  <int>
1 male   10438
2 female 10082
3 <NA>     155

$nyts2017
# A tibble: 3 x 2
  Sex        n
  <fct>  <int>
1 male    8881
2 female  8815
3 <NA>     176

$nyts2018
# A tibble: 3 x 2
  Sex        n
  <fct>  <int>
1 male   10069
2 female  9920
3 <NA>     200

$nyts2019
# A tibble: 3 x 2
  Sex        n
  <fct>  <int>
1 .N       116
2 male    9803
3 female  9099

Looks good!

The years (2016-2019) that have flavors also need the flavor data to be logical (meaning TRUE or FALSE):

Now there are just a few changes needed that are specific to 2019:

Great! Now we have all the same variables and our values don’t need to be handled any differently for any of the years. Thus we can combine the data across years.

Rows: 95,465
Columns: 41
$ year                 <chr> "nyts2015", "nyts2015", "nyts2015", "nyts2015", …
$ psu                  <chr> "015438", "015438", "015438", "015438", "015438"…
$ finwgt               <dbl> 216.7268, 324.9620, 324.9620, 397.1552, 264.8745…
$ stratum              <chr> "BR3", "BR3", "BR3", "BR3", "BR3", "BR3", "BR3",…
$ Age                  <fct> 18, 17, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, …
$ Sex                  <fct> female, male, male, male, female, female, male, …
$ Grade                <fct> 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, …
$ ECIGT                <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRU…
$ ECIGAR               <lgl> TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FA…
$ ESLT                 <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, …
$ EELCIGT              <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRU…
$ EROLLCIGTS           <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, …
$ EFLAVCIGTS           <lgl> FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, F…
$ EBIDIS               <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ EFLAVCIGAR           <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, F…
$ EHOOKAH              <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ EPIPE                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ ESNUS                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, …
$ EDISSOLV             <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CCIGT                <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, …
$ CCIGAR               <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, …
$ CSLT                 <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CELCIGT              <lgl> FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, …
$ CROLLCIGTS           <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CFLAVCIGTS           <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CBIDIS               <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CHOOKAH              <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CPIPE                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CSNUS                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CDISSOLV             <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ brand_ecig           <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ menthol              <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ clove_spice          <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ fruit                <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ chocolate            <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ alcoholic_drink      <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ candy_dessert_sweets <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ other                <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ no_use               <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ EHTP                 <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ CHTP                 <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …

We will want to do some of our analysis split by year, so we would like to be sure we have one variable that has the correct value for year. It looks like we just need to remove "nyts" from the year variable that we created from the names of the tibbles in our list and we should be all set.

Here is our clean and wrangled data:

.{scrollable}

Rows: 95,465
Columns: 41
$ year                 <dbl> 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, …
$ psu                  <chr> "015438", "015438", "015438", "015438", "015438"…
$ finwgt               <dbl> 216.7268, 324.9620, 324.9620, 397.1552, 264.8745…
$ stratum              <chr> "BR3", "BR3", "BR3", "BR3", "BR3", "BR3", "BR3",…
$ Age                  <fct> 18, 17, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, …
$ Sex                  <fct> female, male, male, male, female, female, male, …
$ Grade                <fct> 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, …
$ ECIGT                <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRU…
$ ECIGAR               <lgl> TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FA…
$ ESLT                 <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, …
$ EELCIGT              <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRU…
$ EROLLCIGTS           <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, …
$ EFLAVCIGTS           <lgl> FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, F…
$ EBIDIS               <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ EFLAVCIGAR           <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, F…
$ EHOOKAH              <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ EPIPE                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ ESNUS                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, …
$ EDISSOLV             <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CCIGT                <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, …
$ CCIGAR               <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, …
$ CSLT                 <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CELCIGT              <lgl> FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, …
$ CROLLCIGTS           <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CFLAVCIGTS           <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CBIDIS               <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CHOOKAH              <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CPIPE                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CSNUS                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CDISSOLV             <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ brand_ecig           <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ menthol              <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ clove_spice          <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ fruit                <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ chocolate            <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ alcoholic_drink      <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ candy_dessert_sweets <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ other                <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ no_use               <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ EHTP                 <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ CHTP                 <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …

Note that there are several variables where there are similar names, but with a C compared to an E in the variable name. Those starting with C are related to questions about current usage (last 30 days), while those with an E are related to usage across the subjects whole life (“ever” usage).

Reminder: Current users are a subset of ever users.

Variable Table

Click here to see a table about the variables

value 1 = yes, value 2 = no

Variable Details
year the year that the survey results from a particular student were acquired
psu the primary sampling unit for the survey weighting
finwgt the final analysis weight for the survey weighting
stratum the stratum used for variance estimation for the survey weighting
Age the age of the student when they took the survey
Sex the sex of the student when they took the survey
Grade the grade of the the student when the took the survey
ECIGT student reported having ever tried cigarette smoking, even one or two puffs
ECIGAR student reported having ever tried cigar, cigarillo, or little cigar smoking, even one or two puffs
ESLT student reported having ever tried chewing tobacco, snuff, or dip
EELCIGT student reported having ever tried e-cigarettes
EROLLCIGTS student reported having ever tried roll-your-own cigarettes
EFLAVCIGTS (2015 only) based on answer to “Which of the following tobacco products that you used in the past 30 days were flavored?”
EBIDIS student reported having ever tried bidis (small brown cigarettes wrapped in a leaf)
EFLAVCIGAR student reported having ever tried a flavored cigar (2015-2016)
EHOOKAH student reported having ever smoked tobacco from a hookah or a waterpipe
EPIPE student reported having ever smoked tobacco from a pipe (not hookah)
ESNUS student reported having ever used snus, such as Camel or Malboro Snus
EDISSOLV student reported having ever tried dissolvable tobacco products such as Ariva, Stonewall, Camel orbs, Camel sticks, Marlboro sticks, or Camel strips
CCIGT student reported they smoked cigarettes on >= 1 of the past 30 days
CCIGAR student reported they smoked cigars on >= 1 of the past 30 days
CSLT student reported they used chewing tobacco, snuff, or dip on >= 1 of the past 30 days
CELCIGT student reported they used electronic cigarettes or e-cigarettes one or more days in the past 30
CROLLCIGTS student reported they smoked roll-your-own cigarettes during the past 30 days
CFLAVCIGTS (2015 only) based on answer to “Which of the following tobacco products that you used in the past 30 days were flavored?”
CBIDIS student reported they smoked bidis during the past 30 days
CHOOKAH student reported they smoked tobacco in a hookah on >= 1 of the past 30 days
CPIPE student reported they smoked tobacco in a pipe (not hookah) during the past 30 days
CSNUS student reported they used snus during the past 30 days
CDISSOLV student reported they used dissolvable tobacco products such as Ariva, Stonewall, Camel orbs, Camel sticks, Marlboro sticks, or Camel strips during the past 30 days
brand_ecig student answer to “During the past 30 days, what brand of e-cigarettes did you usually use?”
menthol student selected Menthol or mint as the answer to “What flavors of tobacco products have you used in the past 30 days? (select one or more)”
clove_spice student selected clove or spice as the answer to “What flavors of tobacco products have you used in the past 30 days? (select one or more)”
fruit student selected fruit as the answer to “What flavors of tobacco products have you used in the past 30 days? (select one or more)”
chocolate student selected chocolate as the answer to “What flavors of tobacco products have you used in the past 30 days? (select one or more)”
alcoholic_drink student selected alcoholic drink (such as wine, cognac, margarita, or other cocktails) as the answer to “What flavors of tobacco products have you used in the past 30 days? (choose one or more)”
candy_dessert_sweets student selected candy, desserts or other sweets as the answer to “What flavors of tobacco products have you used in the past 30 days? (choose one or more)”
other student selected some other flavor not listed as the answer to “What flavors of tobacco products have you used in the past 30 days? (choose one or more)”
no_use student reported that they did not use any flavored tobacco products in the past 30 days or did not answer the question about using flavors
EHTP student reported having ever tried heated (also known as “heat-not-burn”) tobacco products
CHTP student reported they used heated tobacco products during the past 30 days

Data Visualization

Recall that our main questions were:

  1. How has tobacco/nicotine and e-cigarette use by American youths changed since 2015?
  2. How do vaping rates compare between males and females?

  3. What vaping brands and flavors appear to be used the most frequently?
    We will base this on the following survey questions:
    > “During the past 30 days, what brand of e-cigarettes did you usually use?”
    >" What flavors of tobacco products have you used in the past 30 days?"

  4. Have vaping rates possibly influenced tobacco/nicotine use?

We are now going to create visualizations to explore each of these questions.

For many of these questions we will be interested in both current and ever users:

We define these two groups based on the survey questions:

  1. current = students who used the product for >=1 day in the past 30 days
  2. ever = students who report having used or tried a product at any point in time

All current users are therefore ever users but not all ever users are current users. Thus, current users are a subset of ever users.

To add these groups to our data we will do a bit more wrangling. Using the mutate() function again of the dplyr package, we will first create two new variables that are the sum of the values for questions that relate to the use of any tobacco product surveyed about ever (questions that start with the letter “E”), and questions that relate to the current use of any tobacco products surveyed about (questions that start with the letter “C”).

Here are some examples for these data entries:

  • EPIPE: Students who reported they have smoked tobacco from a pipe (not hookah).
  • CPIPE: Students who reported they smoked tobacco in a pipe (not hookah) during the past 30 days.
  • EROLLCIGTS: RECODE: Students who reported they have tried smoking roll-your-own cigarettes.
  • CROLLCIGTS: RECODE: Students who reported smoked roll-your-own cigarettes during the past 30 days.

Based on many questions like this:

In the past 30 days, which of the following products have you used on at least one day? (Select one or more) A. Roll-your-own cigarettes
B. Pipes filled with tobacco (not hookah or waterpipe)
C. Snus, such as Camel, Marlboro, or General Snus
D. Dissolvable tobacco products such as Ariva, Stonewall, Camel orbs, Camel sticks, Marlboro sticks, or Camel strips
E. Bidis (small brown cigarettes wrapped in a leaf)
F. I have not used any of the products listed above in the past 30 days

Which of the following tobacco products have you ever tried, even just one time? (Select one or more)
A. Roll-your-own cigarettes
B. Pipes filled with tobacco (not hookah or waterpipe)
C. Snus, such as Camel, Marlboro, or General Snus
D. Dissolvable tobacco products such as Ariva, Stonewall, Camel orbs, Camel sticks, Marlboro sticks, or Camel strips
E. Bidis (small brown cigarettes wrapped in a leaf)
F. I have never tried any of the products listed above

We will sum across the variables that relate to ever or current tobacco usage questions to get determine if the student answered yes to any of the ever or current questions.

We will then use the case_when() function of the dplyr package to convert the sum values to TRUE or FALSE based on the threshold of zero. If the sum is greater than zero, then we know the student answered yes to at least one question.

Rows: 95,465
Columns: 45
$ year                 <dbl> 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, …
$ psu                  <chr> "015438", "015438", "015438", "015438", "015438"…
$ finwgt               <dbl> 216.7268, 324.9620, 324.9620, 397.1552, 264.8745…
$ stratum              <chr> "BR3", "BR3", "BR3", "BR3", "BR3", "BR3", "BR3",…
$ Age                  <fct> 18, 17, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, …
$ Sex                  <fct> female, male, male, male, female, female, male, …
$ Grade                <fct> 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, …
$ ECIGT                <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRU…
$ ECIGAR               <lgl> TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FA…
$ ESLT                 <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, …
$ EELCIGT              <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRU…
$ EROLLCIGTS           <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, …
$ EFLAVCIGTS           <lgl> FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, F…
$ EBIDIS               <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ EFLAVCIGAR           <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, F…
$ EHOOKAH              <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ EPIPE                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ ESNUS                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, …
$ EDISSOLV             <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CCIGT                <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, …
$ CCIGAR               <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, …
$ CSLT                 <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CELCIGT              <lgl> FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, …
$ CROLLCIGTS           <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CFLAVCIGTS           <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CBIDIS               <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CHOOKAH              <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CPIPE                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CSNUS                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CDISSOLV             <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ brand_ecig           <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ menthol              <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ clove_spice          <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ fruit                <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ chocolate            <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ alcoholic_drink      <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ candy_dessert_sweets <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ other                <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ no_use               <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ EHTP                 <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ CHTP                 <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ tobacco_sum_ever     <int> 1, 4, 0, 3, 0, 2, 8, 4, 0, 0, 0, 1, 1, 0, 0, 4, …
$ tobacco_sum_current  <int> 0, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
$ tobacco_ever         <lgl> TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE…
$ tobacco_current      <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, F…

Rows: 95,465
Columns: 53
$ year                 <dbl> 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, …
$ psu                  <chr> "015438", "015438", "015438", "015438", "015438"…
$ finwgt               <dbl> 216.7268, 324.9620, 324.9620, 397.1552, 264.8745…
$ stratum              <chr> "BR3", "BR3", "BR3", "BR3", "BR3", "BR3", "BR3",…
$ Age                  <fct> 18, 17, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, …
$ Sex                  <fct> female, male, male, male, female, female, male, …
$ Grade                <fct> 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, …
$ ECIGT                <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRU…
$ ECIGAR               <lgl> TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FA…
$ ESLT                 <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, …
$ EELCIGT              <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRU…
$ EROLLCIGTS           <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, …
$ EFLAVCIGTS           <lgl> FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, F…
$ EBIDIS               <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ EFLAVCIGAR           <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, F…
$ EHOOKAH              <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ EPIPE                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ ESNUS                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, …
$ EDISSOLV             <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CCIGT                <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, …
$ CCIGAR               <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, …
$ CSLT                 <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CELCIGT              <lgl> FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, …
$ CROLLCIGTS           <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CFLAVCIGTS           <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CBIDIS               <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CHOOKAH              <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CPIPE                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CSNUS                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CDISSOLV             <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ brand_ecig           <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ menthol              <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ clove_spice          <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ fruit                <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ chocolate            <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ alcoholic_drink      <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ candy_dessert_sweets <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ other                <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ no_use               <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ EHTP                 <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ CHTP                 <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ tobacco_sum_ever     <int> 1, 4, 0, 3, 0, 2, 8, 4, 0, 0, 0, 1, 1, 0, 0, 4, …
$ tobacco_sum_current  <int> 0, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
$ tobacco_ever         <lgl> TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE…
$ tobacco_current      <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, F…
$ ecig_sum_ever        <int> 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, …
$ ecig_sum_current     <int> 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
$ non_ecig_sum_ever    <int> 1, 3, 0, 2, 0, 1, 7, 3, 0, 0, 0, 0, 1, 0, 0, 3, …
$ non_ecig_sum_current <int> 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
$ ecig_ever            <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRU…
$ ecig_current         <lgl> FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, …
$ non_ecig_ever        <lgl> TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE…
$ non_ecig_current     <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, …

Finally, we are also interested in students that only use e-cigarettes and those that only other forms of tobacco. We will again use the case_when function to accomplish creating new variables.

Here is a toy example of what we will do with the larger dataset:

Recall that current users are a subset of ever users, thus students would typically answer yes to having tried vaping products if they had used them one or more days in the past 30 days.

First we will make a small toy dataset:

# A tibble: 9 x 4
  ecig_ever non_ecig_ever ecig_current non_ecig_current
  <chr>     <chr>         <chr>        <chr>           
1 TRUE      TRUE          TRUE         TRUE            
2 TRUE      FALSE         FALSE        FALSE           
3 TRUE      FALSE         FALSE        TRUE            
4 TRUE      FALSE         TRUE         FALSE           
5 FALSE     FALSE         TRUE         TRUE            
6 FALSE     FALSE         FALSE        FALSE           
7 TRUE      TRUE          FALSE        FALSE           
8 FALSE     TRUE          FALSE        FALSE           
9 FALSE     TRUE          FALSE        TRUE

Now, let’s look at identifying sutents who have only ever tried e-cigarettes, but are not current users, nor have they tried or currently use other tobacco products.

# A tibble: 9 x 5
  ecig_ever non_ecig_ever ecig_current non_ecig_current ecig_only_ever
  <chr>     <chr>         <chr>        <chr>            <lgl>         
1 TRUE      TRUE          TRUE         TRUE             FALSE         
2 TRUE      FALSE         FALSE        FALSE            TRUE          
3 TRUE      FALSE         FALSE        TRUE             FALSE         
4 TRUE      FALSE         TRUE         FALSE            FALSE         
5 FALSE     FALSE         TRUE         TRUE             FALSE         
6 FALSE     FALSE         FALSE        FALSE            FALSE         
7 TRUE      TRUE          FALSE        FALSE            FALSE         
8 FALSE     TRUE          FALSE        FALSE            FALSE         
9 FALSE     TRUE          FALSE        TRUE             FALSE

We can see from the fourth row, that even though the student reported yes to ever trying e-cigarettes, they also reported yes to currently using e-cigarettes, thus the value for only ever trying e-cigarettes is FALSE. Additionally we can see from the seventh row that similarly even though the student reported yest to ever trying e0cigarettes, they also reported yes to ever trying other products, and the value for only ever trying e-cigarettes is FALSE. Importantly, we can see from the 6th row, that if all responses are negative than the value is FALSE.

Now we will expand this to the other possible categories. Notice since, current users are a subset of ever users, it doesn’t matter if a user reports yes to ever trying e-cigarettes, they can still be a current user.

# A tibble: 9 x 9
  ecig_ever non_ecig_ever ecig_current non_ecig_current ecig_only_ever
  <chr>     <chr>         <chr>        <chr>            <lgl>         
1 TRUE      TRUE          TRUE         TRUE             FALSE         
2 TRUE      FALSE         FALSE        FALSE            TRUE          
3 TRUE      FALSE         FALSE        TRUE             FALSE         
4 TRUE      FALSE         TRUE         FALSE            FALSE         
5 FALSE     FALSE         TRUE         TRUE             FALSE         
6 FALSE     FALSE         FALSE        FALSE            FALSE         
7 TRUE      TRUE          FALSE        FALSE            FALSE         
8 FALSE     TRUE          FALSE        FALSE            FALSE         
9 FALSE     TRUE          FALSE        TRUE             FALSE         
# … with 4 more variables: ecig_only_current <lgl>, non_ecig_only_ever <lgl>,
#   non_ecig_only_current <lgl>, no_use <lgl>

Take a minute to check that the values are what we would expect.

Ok, now we are going to make a Group variable based on the new variables we just made. If a student has only ever tried or currently uses e-cigarettes, the value will be Only e-cigarettes. The same will be true for other tobacco products. If a student has tried either they will be called Both.

# A tibble: 9 x 10
  ecig_ever non_ecig_ever ecig_current non_ecig_current ecig_only_ever
  <chr>     <chr>         <chr>        <chr>            <lgl>         
1 TRUE      TRUE          TRUE         TRUE             FALSE         
2 TRUE      FALSE         FALSE        FALSE            TRUE          
3 TRUE      FALSE         FALSE        TRUE             FALSE         
4 TRUE      FALSE         TRUE         FALSE            FALSE         
5 FALSE     FALSE         TRUE         TRUE             FALSE         
6 FALSE     FALSE         FALSE        FALSE            FALSE         
7 TRUE      TRUE          FALSE        FALSE            FALSE         
8 FALSE     TRUE          FALSE        FALSE            FALSE         
9 FALSE     TRUE          FALSE        TRUE             FALSE         
# … with 5 more variables: ecig_only_current <lgl>, non_ecig_only_ever <lgl>,
#   non_ecig_only_current <lgl>, no_use <lgl>, Group <chr>

Rows: 95,465
Columns: 58
$ year                  <dbl> 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015,…
$ psu                   <chr> "015438", "015438", "015438", "015438", "015438…
$ finwgt                <dbl> 216.7268, 324.9620, 324.9620, 397.1552, 264.874…
$ stratum               <chr> "BR3", "BR3", "BR3", "BR3", "BR3", "BR3", "BR3"…
$ Age                   <fct> 18, 17, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18,…
$ Sex                   <fct> female, male, male, male, female, female, male,…
$ Grade                 <fct> 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,…
$ ECIGT                 <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TR…
$ ECIGAR                <lgl> TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, F…
$ ESLT                  <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE,…
$ EELCIGT               <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TR…
$ EROLLCIGTS            <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE,…
$ EFLAVCIGTS            <lgl> FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, …
$ EBIDIS                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ EFLAVCIGAR            <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, …
$ EHOOKAH               <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ EPIPE                 <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ ESNUS                 <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE,…
$ EDISSOLV              <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ CCIGT                 <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CCIGAR                <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ CSLT                  <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ CELCIGT               <lgl> FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE,…
$ CROLLCIGTS            <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ CFLAVCIGTS            <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ CBIDIS                <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ CHOOKAH               <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ CPIPE                 <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ CSNUS                 <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ CDISSOLV              <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ brand_ecig            <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ menthol               <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ clove_spice           <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ fruit                 <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ chocolate             <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ alcoholic_drink       <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ candy_dessert_sweets  <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ other                 <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ no_use                <lgl> FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, …
$ EHTP                  <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ CHTP                  <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ tobacco_sum_ever      <int> 1, 4, 0, 3, 0, 2, 8, 4, 0, 0, 0, 1, 1, 0, 0, 4,…
$ tobacco_sum_current   <int> 0, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,…
$ tobacco_ever          <lgl> TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRU…
$ tobacco_current       <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, …
$ ecig_sum_ever         <int> 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1,…
$ ecig_sum_current      <int> 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,…
$ non_ecig_sum_ever     <int> 1, 3, 0, 2, 0, 1, 7, 3, 0, 0, 0, 0, 1, 0, 0, 3,…
$ non_ecig_sum_current  <int> 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,…
$ ecig_ever             <lgl> FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TR…
$ ecig_current          <lgl> FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE,…
$ non_ecig_ever         <lgl> TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRU…
$ non_ecig_current      <lgl> FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ ecig_only_ever        <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ ecig_only_current     <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ non_ecig_only_ever    <lgl> TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
$ non_ecig_only_current <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE…
$ Group                 <chr> "Only other products", "Both", "Neither", "Both…

Question 1

We are interested in investing how vaping product use has compared with other tobacco use. First we want to get a sense of how tobacco use has changed in general since 2015.

To create a visualiztion about how tobacco usage has changed over time, we will first convert the usage data to a mean value for each year. To do this we will use the group_by() and summarize function of the dplyr package. This will create new variables which we will name Ever and Current based on the mean of the percentages of tobacco_ever and tobacco_current for each year.

# A tibble: 5 x 3
   year  Ever Current
  <dbl> <dbl>   <dbl>
1  2015  36.8    18.0
2  2016  33.4    14.0
3  2017  31.8    14.4
4  2018  34.7    18.7
5  2019  39.7    22.4

We will use the pivot_longer function to take all collumns except year (in this case the Ever and Current columns), to create a column called User that will contain the current column name information and a column called Percentage of students which will contain the mean percentage values that we just calculated. This converts our data into a format called long format.

# A tibble: 10 x 3
    year User    `Percentage of students`
   <dbl> <chr>                      <dbl>
 1  2015 Ever                        36.8
 2  2015 Current                     18.0
 3  2016 Ever                        33.4
 4  2016 Current                     14.0
 5  2017 Ever                        31.8
 6  2017 Current                     14.4
 7  2018 Ever                        34.7
 8  2018 Current                     18.7
 9  2019 Ever                        39.7
10  2019 Current                     22.4

You may have noticed that our data is longer than it used to be! Hence the name of the function pivot_longer(). Data is often easier to plot when it is in this format.

Now we will use this data to create a plot using the ggplot2 package.

The first thing we do to create a plot is specify what data we are using for our x axis and y axis with theaes() argument of the ggplot() function. Then we add layers to our plot that specify what type of plot we would like to create. We can use the geom_line() function to create lines for each type of user. We specify that we want to use different line types for each user using aes(). We will also add points to our lines using the geom_point() function. We can add additional layers to specify colors and details about labels and legends etc.

Nice! Now we can see how overall tobacco usage has changed since 2017. It appears that usage has increased a bit since 2017, and has surpassed the levels in 2015.

What about e-cigarette use? How has the usage of e-cigarettes changed over time?

It looks like the shape of the plot is very similar to tobacco usage overall. We see a downward trend until 2017 when the rate of both current and ever users increased. Recall that this is in agreement with the articles that we referenced earlier. We can see that the slope looks steeper for e-cigarette usage as compared to all tobacco products (including e-cigarettes).

Now let’s plot e-cigarette usage and tobacco products usage (besides e-cigarettes) together on the same plot. In this case we will look at students who have only smoked either of e-cigarettes or only other tobacco products besides e-cigarettes.

In this case we will have four groups (only e-cigarette ever users, only e-cigarette current users, only non-e-cigarette ever tobbaco users, and only non-e-cigarette current tobacco users) to plot, therefore, it would be useful to add color to our plot.

One important thing to keep in mind when creating plots, is that individuals with color blindness may have a difficult time distinguishing groups when certian color chocies are used.

One great option is to use the viridis package, which offers color palattes with colors that are still distinguishable by individuals with most forms of color blindness.

We can choose which colors we want to use by using the show_col() function of the scales package.

Here are some color options:

We will select the first and fourth colors for our plot. To add these specific colors we will use the scale_color_manual() function of the ggplot2 package.

We will calculate the mean ever and current usage percentages for students who had only used e-cigarette or other tobacco products (besides e-cigarettes) for each year again using the group_by() function and the summarize() function. We will again use the pivot_longer function to convert our data to long format. We will also use the separate() function of the tidyr package to create two variables from one of variables. This is done by separating by, in this case, a space.

# A tibble: 6 x 4
   year User    Product   `Percentage of students`
  <dbl> <chr>   <chr>                        <dbl>
1  2015 Ever    e-cig                         4.36
2  2015 Current e-cig                         1.54
3  2015 Ever    non-e-cig                     7.06
4  2015 Current non-e-cig                     3.35
5  2016 Ever    e-cig                         4.54
6  2016 Current e-cig                         1.23

We can see from this plot that the percentage of students who had only ever tried (or currently used) e-cigarettes was greatly increasing since 2017, while in contrast the percentage of students who had only ever tried non-e-cigarette tobacco products was diminishing over time. In fact, we can see that in 2019 the percentage of students who were current e-cigarette users surpassed the percentage that had tried a non-e-cigarette product even just once.

We will explore the relaitonship between e-cigarette usage and other tobacco products a bit later in the case study.

Recall that we made a variable called Group that identified students who used either just e-cigarette products, just other tobacco products (besides e-cigarettes), or students who used both e-cigarettes and some other type of tobacco product.

# A tibble: 4 x 2
  Group                   n
  <chr>               <int>
1 Both                16517
2 Neither             61738
3 Only e-cigarettes    7866
4 Only other products  9344

We will now make a plot over time of each of these groups.

# A tibble: 6 x 3
  Group    year     n
  <chr>   <dbl> <int>
1 Both     2015  3634
2 Both     2016  3297
3 Both     2017  2623
4 Both     2018  3321
5 Both     2019  3642
6 Neither  2015 11188

Question 2

Now we want to look how e-cigarette smoking rates compare between males and females across time.

We will calculate the mean e-cigarette ever and current percentages for each year and sex category again using the group_by() function and the summarize() function. Notice, that in this case we are grouping by two variables by simply using group_by(year, Sex). We will again use the pivot_longer function to convert our data to long format.

# A tibble: 6 x 4
# Groups:   year [1]
   year Sex    User    `Percentage of students`
  <dbl> <fct>  <chr>                      <dbl>
1  2015 male   Ever                       29.3 
2  2015 male   Current                    13.3 
3  2015 female Ever                       24.3 
4  2015 female Current                     9.05
5  2015 <NA>   Ever                       25   
6  2015 <NA>   Current                    11.8

It looks like the rates are fairly similar between the sexes, however the rate for males appears to be consistently higher across time.

Question 3

We are also interested in what vaping brands and flavors appear to be used the most frequently. Only the 2019 data has this information. Therefore, we will filter for just this year using the filter() function of the dplyr package. We will use the summarize() function slightly differently this time, to calculate the total number of students using each brand n using the n() function and the sum() function to calculate the percent for each brand based on the counts.

# A tibble: 7 x 4
  brand_ecig     n total Percent
  <fct>      <int> <int>   <dbl>
1 Blu          111  3604   3.08 
2 JUUL        2028  3604  56.3  
3 Logic         36  3604   0.999
4 MarkTen       32  3604   0.888
5 NJOY          44  3604   1.22 
6 Other       1253  3604  34.8  
7 Vuse         100  3604   2.77

Juul appears to be the most widely used brand. This is in agreement with a recent article:

Huang J, Duan Z, Kwok J, et al. Tob Control 2019;28:146–151.

Huang J, Duan Z, Kwok J, et al. Tob Control 2019;28:146–151.

We are also interested in how the usage of different flavors has changed over the years. To evaluate this we will calculate the precentage of students using each flavor each year - this includes usage of any type of flavored tobacco product.

From this plot, we can see that fruit flavors are the most widely used products, followed by menthol or mint flavored products.

We will now look specificially at the usage of flavored e-cigarette products vs other flavored tobacco products.

Recall that we made a variable called Group that identified students who used either just e-cigarette products, just other tobacco products (besides e-cigarettes), or students who used both e-cigarettes and some other type of tobacco product.

# A tibble: 4 x 2
  Group                   n
  <chr>               <int>
1 Both                16517
2 Neither             61738
3 Only e-cigarettes    7866
4 Only other products  9344

The majority of the students that use tobacco use both e-cigarettes and other products.

plot5 <- nyts_data %>%
  filter(year != 2015) %>%
  # filter(menthol == TRUE|
  #          clove_spice == TRUE|
  #          fruit == TRUE|
  #          chocolate == TRUE|
  #          alcoholic_drink == TRUE|
  #          candy_dessert_sweets == TRUE|
  #          other == TRUE) %>%
# we want to remove students that used both e-cigarette and other tobacco products
  filter(Group != "Both") %>%
  group_by(year, Group) %>%
summarize(Menthol=(mean(menthol, na.rm = TRUE)*100),
         `Clove or Spice`=(mean(clove_spice, na.rm = TRUE)*100),
          Fruit=(mean(fruit, na.rm = TRUE)*100),
          Chocolate=(mean(chocolate, na.rm = TRUE)*100),
          `Alcoholic Drink`=(mean(alcoholic_drink, na.rm = TRUE)*100),
          `Candy/Desserts/Sweets`=(mean(candy_dessert_sweets, na.rm = TRUE)*100),
          Other = (mean(other, na.rm = TRUE)*100),
          Respondents=n()) %>%
  #converting all columns between and including Menthol and Other to one column called Flavor
  pivot_longer(cols = Menthol:Other, names_to = "Flavor", values_to = "Percentage of students") %>%
  filter(!is.na(`Percentage of students`),
         Flavor!="Other") %>%
  group_by(Flavor) %>%
  mutate(affirmative=(Respondents * `Percentage of students`)/100) %>%
  mutate(flavor_mean = sum(affirmative)/sum(Respondents)) %>%
  ungroup() %>%
  mutate(flavor_mean_rank = dense_rank(flavor_mean),
         Flavor = fct_reorder(Flavor, flavor_mean_rank)) %>%
  ggplot(aes(x=year, y=`Percentage of students`, color=Group)) +
  facet_wrap(.~Flavor,ncol=3) +
  geom_line() + 
  geom_point(show.legend = FALSE) + 
  theme_minimal() +
  theme(legend.position = "bottom",
          axis.title.x = element_blank(),
        axis.text.x = element_text(angle = 90)) + 
  labs(title = "Among users of only one type of product, what vaping flavors appear to be used the most frequently?",
       subtitle = "Percent reporting only e-cigarette use vs only other nicotine product use")

plot5

Question 4

Have vaping rates possibly influenced tobacco/nicotine use?

Weighted Sample

plotA_w <- nyts_data %>%
  as_survey_design(strata = stratum, ids = psu, weight  = finwgt, nest=TRUE) %>%
    group_by(year) %>%
summarize(tobacco_ever_year = survey_mean(tobacco_ever, vartype = "ci", na.rm=TRUE),
            tobacco_current_year = survey_mean(tobacco_current, vartype = "ci", na.rm=TRUE))  %>%
  mutate_at(vars(-year), "*", 100) %>%
    pivot_longer(cols = -year, names_to = "Type", values_to = "Percentage of students") %>%
  mutate(Estimate = case_when(grepl("_low", Type) ~ "Lower",
                          grepl("_upp", Type) ~ "Upper",
                          TRUE ~ "Mean"),
         User = case_when(grepl("ever", Type) ~ "Ever",
                          grepl("current", Type) ~ "Current",
                          TRUE ~ "Mean")) %>%
  dplyr::select(-Type) %>%
  pivot_wider(names_from = Estimate, 
              values_from = `Percentage of students`) %>%
  ggplot(aes(x=year,y=Mean)) +
  geom_line(aes(linetype=User)) +
  geom_linerange(aes(ymin = Lower, ymax = Upper), show.legend = FALSE) +
  scale_linetype_manual(values = c(2,1)) +
    scale_y_continuous(breaks = seq(0,70,by=10),
                       labels = seq(0,70,by=10),
                       limits = c(0,70)) +
    theme_minimal() +
    theme(legend.position = "none",
          axis.title.x = element_blank()) +
    labs(title = "Nicotine product users more prevalent after 2017",
         y = "% of students")

plotB_w <- nyts_data %>%
  as_survey_design(strata = stratum, ids = psu, weight  = finwgt, nest=TRUE) %>%
    group_by(year) %>%
  summarize(ecig_ever_year = survey_mean(ecig_ever, vartype = "ci", na.rm=TRUE),
            ecig_current_year = survey_mean(ecig_current, vartype = "ci", na.rm=TRUE),
            non_ecig_ever_year = survey_mean(non_ecig_ever, vartype = "ci", na.rm=TRUE),
            non_ecig_current_year = survey_mean(non_ecig_current, vartype = "ci", na.rm=TRUE)) %>%
  mutate_at(vars(-year), "*", 100) %>%
  dplyr::select(year,
                ecig_ever_year,
                ecig_current_year,
                non_ecig_ever_year,
                non_ecig_current_year,
                contains("low"),
                contains("upp")) %>%
  pivot_longer(cols = -year, names_to = "Category", values_to = "Percentage of students") %>%
  mutate(Estimate = case_when(grepl("_low", Category) ~ "Lower",
                          grepl("_upp", Category) ~ "Upper",
                          TRUE ~ "Mean"),
         User = case_when(grepl("current", Category) ~ "Current",
                          TRUE ~ "Ever",),
         Product = case_when(grepl("non_ecig", Category) ~ "Other products",
                          TRUE ~ "E-cigarettes")) %>%
  dplyr::select(-Category) %>%
  pivot_wider(names_from = Estimate, 
              values_from = `Percentage of students`) %>%
  filter(User=="Ever") %>%
  dplyr::rename("Lower_temp" = Upper,
                "Upper_temp" = Lower) %>%
  dplyr::rename("Lower"=Lower_temp,
                "Upper"=Upper_temp) %>%
    ggplot(aes(x=year,y=Mean, color=Product)) +
  geom_line(linetype=1) +
  geom_linerange(aes(ymin = Lower, ymax = Upper), show.legend = FALSE) +
  scale_y_continuous(breaks = seq(10, 60, by = 10), limits = c(10,60)) +
    theme_minimal() +
    theme(legend.position = "none",
          axis.title.x = element_blank()) +
    labs(title = "% ever trying e-cigarettes increases &\n% ever trying other products decreases",
         y = "% of students")

#### the wrangling looks the same as the above plot...
plotC_w <- nyts_data %>%
  as_survey_design(strata = stratum, ids = psu, weight  = finwgt, nest=TRUE) %>%
    group_by(year) %>%
summarize(ecig_ever_year = survey_mean(ecig_ever, vartype = "ci", na.rm=TRUE),
            ecig_current_year = survey_mean(ecig_current, vartype = "ci", na.rm=TRUE),
            non_ecig_ever_year = survey_mean(non_ecig_ever, vartype = "ci", na.rm=TRUE),
            non_ecig_current_year = survey_mean(non_ecig_current, vartype = "ci", na.rm=TRUE)) %>%
  mutate_at(vars(-year), "*", 100) %>%
  dplyr::select(year,
                ecig_ever_year,
                ecig_current_year,
                non_ecig_ever_year,
                non_ecig_current_year,
                contains("low"),
                contains("upp")) %>%
  pivot_longer(cols = -year, names_to = "Category", values_to = "Percentage of students") %>%
    mutate(Estimate = case_when(grepl("_low", Category) ~ "Lower",
                          grepl("_upp", Category) ~ "Upper",
                          TRUE ~ "Mean"),
         User = case_when(grepl("ever", Category) ~ "Ever",
                          grepl("current", Category) ~ "Current"),
         Product = case_when(grepl("non_ecig", Category) ~ "Other products",
                          TRUE ~ "E-cigarettes")) %>%
  dplyr::select(-Category) %>%
  pivot_wider(names_from = Estimate, 
              values_from = `Percentage of students`) %>%
    ggplot(aes(x=year,y=Mean, color=Product)) +
  geom_line(aes(linetype=User)) +
  geom_linerange(aes(ymin = Lower, ymax = Upper), show.legend = FALSE) +
  scale_linetype_manual(values = c(2,1)) +
  scale_y_continuous(breaks = seq(0, 60, by = 10), limits = c(0,60)) +
    theme_minimal() +
    theme(legend.position = "none",
          axis.title.x = element_blank()) +
    labs(title = "% Using e-cigarettes increases &\n% using Other products decreases",
         y = "% of students")

title_w <- ggdraw() + 
  draw_label(
    expression("Have vaping rates possibly influenced tobacco/nicotine use?"),
    fontface = 'bold',
    size=14,
    x = 0,
    hjust = 0
  ) +
  theme(
    plot.margin = margin(0, 0, 0, 0)
  )

plotsA_w <- plot_grid(plotA_w,
                     rel_widths = c(1),
                     align = "v",
                     axis = "bt")
plotsBC_w <- plot_grid(plotB_w,
                     plotC_w,
                     rel_widths = c(1,1),
                     align = "v",
                     axis = "bt")

legend_w <- get_legend(plot8 +
                       theme(legend.position = "bottom",
                             legend.direction = "horizontal"))

figure_w <- plot_grid(title_w,
                      plotsA_w,
                      plotsBC_w,
                      legend_w,
                      ncol = 1,
                      rel_heights = c(0.1,
                                      1,
                                      1,
                                      0.1),
                      scale = 1.0)

figure_w

Hypothetical Cohort

plotA_w_8 <- nyts_data %>%
  filter((Grade == "8" & year == 2015) |
         (Grade == "9" & year == 2016) |
         (Grade == "10" & year == 2017) |
         (Grade == "11" & year == 2018) |
          (Grade == "12" & year == 2019) 
         ) %>%
  as_survey_design(strata = stratum, ids = psu, weight  = finwgt) %>%
    group_by(year) %>%
summarize(tobacco_ever_year = survey_mean(tobacco_ever, vartype = "ci", na.rm=TRUE),
            tobacco_current_year = survey_mean(tobacco_current, vartype = "ci", na.rm=TRUE))  %>%
  mutate_at(vars(-year), "*", 100) %>%
    pivot_longer(cols = -year, names_to = "Type", values_to = "Percentage of students")%>%
  mutate(Estimate = case_when(grepl("_low", Type) ~ "Lower",
                          grepl("_upp", Type) ~ "Upper",
                          TRUE ~ "Mean"),
         User = case_when(grepl("ever", Type) ~ "Ever",
                          grepl("current", Type) ~ "Current",
                          TRUE ~ "Mean")) %>%
  dplyr::select(-Type) %>%
  pivot_wider(names_from = Estimate, 
              values_from = `Percentage of students`) %>%
  #spread(Estimate, `Percentage of students`) %>%
  ggplot(aes(x=year,y=Mean)) +
  geom_line(aes(linetype=User)) +
  geom_linerange(aes(ymin = Lower, ymax = Upper)) + 
  scale_linetype_manual(values = c(2,1)) +
    scale_y_continuous(breaks = seq(0,70,by=10),
                       labels = seq(0,70,by=10),
                       limits = c(0,70)) +
    theme_minimal() +
    theme(legend.position = "none",
          axis.title.x = element_blank()) +
    labs(title = "Nicotine product users becoming increasingly prevalent",
         y = "% of students")

plotB_w_8 <- nyts_data %>%
  filter((Grade == "8" & year == 2015) |
         (Grade == "9" & year == 2016) |
         (Grade == "10" & year == 2017) |
         (Grade == "11" & year == 2018) |
          (Grade == "12" & year == 2019) 
         ) %>%
  as_survey_design(strata = stratum, ids = psu, weight  = finwgt) %>%
    group_by(year) %>%
  summarize(ecig_ever_year = survey_mean(ecig_ever, vartype = "ci", na.rm=TRUE),
            ecig_current_year = survey_mean(ecig_current, vartype = "ci", na.rm=TRUE),
            non_ecig_ever_year = survey_mean(non_ecig_ever, vartype = "ci", na.rm=TRUE),
            non_ecig_current_year = survey_mean(non_ecig_current, vartype = "ci", na.rm=TRUE)) %>%
  mutate_at(vars(-year), "*", 100) %>%
  dplyr::select(year,
                ecig_ever_year,
                ecig_current_year,
                non_ecig_ever_year,
                non_ecig_current_year,
                contains("low"),
                contains("upp")) %>%
   pivot_longer(cols = -year, names_to = "Category", values_to = "Percentage of students")%>%
  mutate(Estimate = case_when(grepl("_low", Category) ~ "Lower",
                          grepl("_upp", Category) ~ "Upper",
                          TRUE ~ "Mean"),
         User = case_when(grepl("current", Category) ~ "Current",
                          TRUE ~ "Ever",),
         Product = case_when(grepl("non_ecig", Category) ~ "Other products",
                          TRUE ~ "E-cigarettes")) %>%
  dplyr::select(-Category) %>%
  pivot_wider(names_from = Estimate, 
              values_from = `Percentage of students`) %>%
  filter(User=="Ever") %>%
  dplyr::rename("Lower_temp" = Upper,
                "Upper_temp" = Lower) %>%
  dplyr::rename("Lower"=Lower_temp,
                "Upper"=Upper_temp) %>%
  ggplot(aes(x=year,y=Mean, color=Product)) +
  geom_line(linetype=1) +
  geom_linerange(aes(ymin = Lower, ymax = Upper)) + 
  scale_y_continuous(breaks = seq(10, 60, by = 10), limits = c(10,60)) +
    theme_minimal() +
    theme(legend.position = "none",
          axis.title.x = element_blank()) +
    labs(title = "% ever trying nicotine products increases",
         y = "% of students")

plotC_w_8 <- nyts_data %>%
  filter((Grade == "8" & year == 2015) |
         (Grade == "9" & year == 2016) |
         (Grade == "10" & year == 2017) |
         (Grade == "11" & year == 2018) |
          (Grade == "12" & year == 2019) 
         ) %>%
  as_survey_design(strata = stratum, ids = psu, weight  = finwgt) %>%
    group_by(year) %>%
summarize(ecig_ever_year = survey_mean(ecig_ever, vartype = "ci", na.rm=TRUE),
            ecig_current_year = survey_mean(ecig_current, vartype = "ci", na.rm=TRUE),
            non_ecig_ever_year = survey_mean(non_ecig_ever, vartype = "ci", na.rm=TRUE),
            non_ecig_current_year = survey_mean(non_ecig_current, vartype = "ci", na.rm=TRUE)) %>%
  mutate_at(vars(-year), "*", 100) %>%
  dplyr::select(year,
                ecig_ever_year,
                ecig_current_year,
                non_ecig_ever_year,
                non_ecig_current_year,
                contains("low"),
                contains("upp")) %>%
  pivot_longer(cols = -year, names_to = "Category", values_to = "Percentage of students")%>%
    mutate(Estimate = case_when(grepl("_low", Category) ~ "Lower",
                          grepl("_upp", Category) ~ "Upper",
                          TRUE ~ "Mean"),
         User = case_when(grepl("ever", Category) ~ "Ever",
                          grepl("current", Category) ~ "Current"),
         Product = case_when(grepl("non_ecig", Category) ~ "Other products",
                          TRUE ~ "E-cigarettes")) %>%
  dplyr::select(-Category) %>%
  pivot_wider(names_from = Estimate, 
              values_from = `Percentage of students`) %>%
    ggplot(aes(x=year,y=Mean, color=Product)) +
  geom_line(aes(linetype=User)) +
  geom_linerange(aes(ymin = Lower, ymax = Upper)) + 
  scale_linetype_manual(values = c(2,1)) +
  scale_y_continuous(breaks = seq(0, 60, by = 10), limits = c(0,60)) +
    theme_minimal() +
    theme(legend.position = "none",
          axis.title.x = element_blank()) +
    labs(title = "E-cigarette use surpasses use of other nicotine products",
         y = "% of students")

title_w_8 <- ggdraw() + 
  draw_label(
    expression("Among"~8^th~"graders in 2015, have vaping rates possibly influenced tobacco/nicotine use?"),
    fontface = 'bold',
    size=14,
    x = 0,
    hjust = 0
  ) +
  theme(
    plot.margin = margin(0, 0, 0, 0)
  )

plotsA_w_8 <- plot_grid(plotA_w_8,
                        rel_widths = c(1),
                        align = "v",
                        axis = "bt")

plotsBC_w_8 <- plot_grid(plotB_w_8,
                         plotC_w_8,
                         rel_widths = c(1,1),
                         axis = "bt")

legend_w_8 <- get_legend(plot8 +
                       theme(legend.position = "bottom",
                             legend.direction = "horizontal"))

figure_w_8 <- plot_grid(title_w_8,
                        plotsA_w_8,
                        plotsBC_w_8,
                        legend_w_8,
                        ncol = 1,
                        rel_heights = c(0.1,
                                      1,
                                      1,
                                      0.1),
                        scale = 1.0
)

figure_w_8

Final Figure

title_final <- ggdraw() +
  draw_label(
    expression("What is the relationship between vaping rates and tobacco/nicotine use?"),
    fontface = 'bold',
    size=16,
    x = 0.5) +
  theme(
    plot.margin = margin(0, 0, 0, 0)
  )

subtitle_uw_final <- ggdraw() + 
  draw_label(
    expression(~6^th~"-"~12^th~"graders, unweighted"),
    size=12,
    x = 0.5) +
  theme(
    plot.margin = margin(0, 0, 0, 0)
  )

subtitle_w_final <- ggdraw() + 
  draw_label(
    expression(~6^th~"-"~12^th~"graders, weighted"),
    fontface = 'bold',
    size=12,
    x = 0.5) +
  theme(
    plot.margin = margin(0, 0, 0, 0)
  )

subtitle_w_8_final <- ggdraw() + 
  draw_label(
    expression(~8^th~"graders in 2015, weighted"),
    fontface = 'bold',
    size=12,
    x = 0.5) +
  theme(
    plot.margin = margin(0, 0, 0, 0)
  )

subtitle_final <- plot_grid(subtitle_uw_final,
                            subtitle_w_final,
                            subtitle_w_8_final,
                            ncol = 3)

plotsA_title_final <- ggdraw() + 
  draw_label(
    expression("Prevalence of e-cigarette use by user type"),
    size=14,
    x = 0.5) +
  theme(
    plot.margin = margin(0, 0, 0, 0)
  )

plotsA_final <- plot_grid(plotA_uw + theme(plot.title = element_blank()),
                          plotA_w + theme(plot.title = element_blank()),
                          plotA_w_8 + theme(plot.title = element_blank()),
                          ncol = 3,
                          align = "v",
                          axis = "bt")

plotsB_title_final <- ggdraw() + 
  draw_label(
    expression("Prevalence of ever use by product type"),
    size=14,
    x = 0.5) +
  theme(
    plot.margin = margin(0, 0, 0, 0)
  )

plotsB_final <- plot_grid(plotB_uw + theme(plot.title = element_blank()),
                          plotB_w + theme(plot.title = element_blank()),
                          plotB_w_8 + theme(plot.title = element_blank()),
                          ncol = 3,
                          align = "v",
                          axis = "bt")

plotsC_title_final <- ggdraw() + 
  draw_label(
    expression("Prevalence of nicotine product use by product & user type"),
    size=14,
    x = 0.5) +
  theme(
    plot.margin = margin(0, 0, 0, 0)
  )

plotsC_final <- plot_grid(plotC_uw + theme(plot.title = element_blank()),
                          plotC_w + theme(plot.title = element_blank()),
                          plotC_w_8 + theme(plot.title = element_blank()),
                          ncol = 3,
                          align = "v",
                          axis = "bt")

legend_final <- get_legend(plot8 +
                             theme(legend.position = "bottom",
                             legend.direction = "horizontal"))

final_plot <- plot_grid(title_final,
          plotsA_title_final,
          subtitle_final,
          plotsA_final,
          plotsB_title_final,
          subtitle_final,
          plotsB_final,
          plotsC_title_final,
          subtitle_final,
          plotsC_final,
          legend_final,
          ncol = 1,
          rel_heights = c(0.2,
                          0.2,
                          0.1,
                          1,
                          0.2,
                          0.1,
                          1,
                          0.2,
                          0.1,
                          1,
                          0.1))

final_plot

Suggested Homework

  • Apply survey weights to one of the figures produced in this case study in which weighted estimates were not produced. Include error bars in the updated figure.
    • Does the figure change after the application of survey weights?
    • If so, describe how.
  • Reproduce final_plot above for a different cohort of your choice.

Notes

Ever and current variables are limited to those shared by all years of data included in this case study.

New code: Knit time: 36.561 secs. Previous code: ~ 3 m.

Problems

I had difficulty producing a plot that succinctly presented a trend. It’s very easy to produce plots that are very useful once one is familiar with the data. Some plots, however, cannot stand alone and need additional context to be clear for those without prior knowledge of the data. When I first shared a plot I had been working on with others, it became clear that in my effort to present a complicated idea briefly I had left out information that would make the trend easily interpretable. To solve this issue, I began to present visualizations of the data alongside my original plot. The final figure I created contained several additional plots, each presenting the same trend at a different level than my initial plot.

My “centerpiece” plot is the middle plot in final_plot. The 8 plots around it help provide a very clear picture of what is going on in the US with regards to e-cigarette use and nicotine product use at large. On its own, it’s difficult to understand the trends in the US and how important the weighting scheme is for inference. Once you add the left and right columns, it’s clear what is going on.

Data Analysis

content header

Summary

cool visualization that summarizes everything… could add this somewhere: https://www.fda.gov/tobacco-products/youth-and-tobacco/youth-tobacco-use-results-national-youth-tobacco-survey

Session info

R version 4.0.1 (2020-06-06)
Platform: x86_64-apple-darwin17.0 (64-bit)
Running under: macOS Mojave 10.14.5

Matrix products: default
BLAS:   /Library/Frameworks/R.framework/Versions/4.0/Resources/lib/libRblas.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/4.0/Resources/lib/libRlapack.dylib

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] cowplot_1.0.0     srvyr_0.3.10      forcats_0.5.0     viridis_0.5.1    
 [5] viridisLite_0.3.0 scales_1.1.1      ggplot2_3.3.1     tidyr_1.1.0      
 [9] readr_1.3.1       dplyr_1.0.0       purrr_0.3.4       stringr_1.4.0    
[13] readxl_1.3.1      knitr_1.28        here_0.1         

loaded via a namespace (and not attached):
 [1] Rcpp_1.0.4.6     highr_0.8        cellranger_1.1.0 pillar_1.4.4    
 [5] compiler_4.0.1   base64enc_0.1-3  tools_4.0.1      digest_0.6.25   
 [9] lattice_0.20-41  evaluate_0.14    lifecycle_0.2.0  tibble_3.0.1    
[13] gtable_0.3.0     pkgconfig_2.0.3  rlang_0.4.6      Matrix_1.2-18   
[17] cli_2.0.2        DBI_1.1.0        yaml_2.2.1       xfun_0.14       
[21] gridExtra_2.3    withr_2.2.0      mitools_2.4      generics_0.0.2  
[25] vctrs_0.3.1      hms_0.5.3        rprojroot_1.3-2  grid_4.0.1      
[29] tidyselect_1.1.0 glue_1.4.1       R6_2.4.1         fansi_0.4.1     
[33] survival_3.1-12  rmarkdown_2.2    farver_2.0.3     magrittr_1.5    
[37] splines_4.0.1    backports_1.1.7  ellipsis_0.3.1   htmltools_0.4.0 
[41] assertthat_0.2.1 colorspace_1.4-1 labeling_0.3     utf8_1.1.4      
[45] survey_4.0       stringi_1.4.6    munsell_0.5.0    crayon_1.3.4
LS0tCnRpdGxlOiAiT3BlbiBDYXNlIFN0dWRpZXMgOiBWYXBpbmcgQmVoYXZpb3JzIGluIEFtZXJpY2FuIFlvdXRoIgphdXRob3I6ICJNaWNoYWVsIE9udGl2ZXJvcywgQ2FycmllIFdyaWdodCwgUGhELiAiCgpjc3M6IHN0eWxlLmNzcwpvdXRwdXQ6CiAgaHRtbF9kb2N1bWVudDoKICAgIHNlbGZfY29udGFpbmVkOiB5ZXMKICAgIGNvZGVfZG93bmxvYWQ6IHllcwogICAgaGlnaGxpZ2h0OiB0YW5nbwogICAgbnVtYmVyX3NlY3Rpb25zOiBubwogICAgdGhlbWU6IGNvc21vCiAgICB0b2M6IHllcwogICAgdG9jX2Zsb2F0OiB5ZXMKICBwZGZfZG9jdW1lbnQ6CiAgICB0b2M6IHllcwogIHdvcmRfZG9jdW1lbnQ6CiAgICB0b2M6IHllcwoKLS0tCjxzdHlsZT4KI1RPQyB7CiAgYmFja2dyb3VuZDogdXJsKCJodHRwczovL29wZW5jYXNlc3R1ZGllcy5naXRodWIuaW8vaW1nL2xvZ28uanBnIik7CiAgYmFja2dyb3VuZC1zaXplOiBjb250YWluOwogIHBhZGRpbmctdG9wOiAyNDBweCAhaW1wb3J0YW50OwogIGJhY2tncm91bmQtcmVwZWF0OiBuby1yZXBlYXQ7Cn0KPC9zdHlsZT4KCmBgYHtyLCBlY2hvPUZBTFNFfQprbml0X3RpbWVfc3RhcnQgPC0gU3lzLnRpbWUoKQpgYGAKCmBgYHtyLCBlY2hvPUZBTFNFfQprbml0cjo6b3B0c19jaHVuayRzZXQoZmlnLndpZHRoPTEwLCBmaWcuaGVpZ2h0PTgsIGRwaT0zMDApIApgYGAKCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQprbml0cjo6b3B0c19jaHVuayRzZXQoaW5jbHVkZSA9IFRSVUUsIGNvbW1lbnQgPSBOQSwgZWNobyA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICBtZXNzYWdlID0gRkFMU0UsIHdhcm5pbmcgPSBGQUxTRSwgY2FjaGUgPSBGQUxTRSwKICAgICAgICAgICAgICAgICAgICAgIGZpZy5hbGlnbiA9ICJjZW50ZXIiLCBvdXQud2lkdGggPSAnOTAlJykKbGlicmFyeShoZXJlKQpsaWJyYXJ5KGtuaXRyKQpgYGAKCgojIyMjIHsub3V0bGluZSB9CmBgYHtyLCBlY2hvID0gRkFMU0UsIG91dC53aWR0aCA9ICI4MDAgcHgifQprbml0cjo6aW5jbHVkZV9ncmFwaGljcyhoZXJlOjpoZXJlKCJpbWciLCAiZmluYWxfcGxvdC5wbmciKSkKYGBgCiMjIyMKCgoKCiMjIHsuZGlzY2xhaW1lcl9ibG9ja30KCioqRGlzY2xhaW1lcioqOiBUaGUgcHVycG9zZSBvZiB0aGUgW09wZW4gQ2FzZSBTdHVkaWVzXShodHRwczovL29wZW5jYXNlc3R1ZGllcy5naXRodWIuaW8pe3RhcmdldD0iX2JsYW5rIn0gcHJvamVjdCBpcyAqKnRvIGRlbW9uc3RyYXRlIHRoZSB1c2Ugb2YgdmFyaW91cyBkYXRhIHNjaWVuY2UgbWV0aG9kcywgdG9vbHMsIGFuZCBzb2Z0d2FyZSBpbiB0aGUgY29udGV4dCBvZiBtZXNzeSwgcmVhbC13b3JsZCBkYXRhKiouIEEgZ2l2ZW4gY2FzZSBzdHVkeSBkb2VzIG5vdCBjb3ZlciBhbGwgYXNwZWN0cyBvZiB0aGUgcmVzZWFyY2ggcHJvY2VzcywgaXMgbm90IGNsYWltaW5nIHRvIGJlIHRoZSBtb3N0IGFwcHJvcHJpYXRlIHdheSB0byBhbmFseXplIGEgZ2l2ZW4gZGF0YSBzZXQsIGFuZCBzaG91bGQgbm90IGJlIHVzZWQgaW4gdGhlIGNvbnRleHQgb2YgbWFraW5nIHBvbGljeSBkZWNpc2lvbnMgd2l0aG91dCBleHRlcm5hbCBjb25zdWx0YXRpb24gZnJvbSBzY2llbnRpZmljIGV4cGVydHMuIAoKIyMgKipNb3RpdmF0aW9uKioKKioqIApBY2NvcmRpbmcgdG8gYSByZWNlbnQgW3JlcG9ydF0oaHR0cHM6Ly93d3cuY2RjLmdvdi9tbXdyL3ZvbHVtZXMvNjgvd3IvbW02ODA2ZTEuaHRtP3NfY2lkPW1tNjgwNmUxX3cpe3RhcmdldD0iX2JsYW5rIn0sIG92ZXJhbGwgdG9iYWNjbyB1c2UgKippbmNyZWFzZWQqKiBpbiB5b3V0aHMgKG1pZGRsZSBzY2hvb2wgYW5kIGhpZ2ggc2Nob29sIHN0dWRlbnRzKSBpbiB0aGUgVW5pdGVkIFN0YXRlcyBpbiAyMDE3IGFuZCAyMDE4LCBkZXNwaXRlIHByZXZpb3VzIHllYXJzIG9mIGRlY2xpbmluZyB1c2UuCgpUaGlzIG1ham9yIGluY3JlYXNlIGlzIGF0dHJpYnV0ZWQgdG8gYW4gaW5jcmVhc2UgaW4gdGhlIHVzZSBvZiBlbGVjdHJvbmljIGNpZ2FyZXR0ZSAoZS1jaWdhcmV0dGUpIHByb2R1Y3RzLgoKRS1jaWdhcmV0dGVzIGFyZSByZWZlcnJlZCB0byBieSBtYW55IGRpZmZlcmVudCBuYW1lcywgaW5jbHVkaW5nIGJ1dCBub3QgbGltaXRlZCB0bzoKCjEpIEVsZWN0cm9uaWMgbmljb3RpbmUgZGVsaXZlcnkgc3lzdGVtcyAoRU5EUykKMikgVmFwZXMKMykgZS1ob29rYWhzCjQpIHZhcGUgcGVucwo1KSB0YW5rcwo2KSBtb2RzCgpUaGUgZGV2aWNlcyB2YXJ5IGdyZWF0bHk6CgpgYGB7ciwgZWNobyA9IEZBTFNFLCBmaWcuYWxpZ24gPSJjZW50ZXIifQoKaW5jbHVkZV9ncmFwaGljcygiaHR0cHM6Ly93d3cubHVuZy5vcmcvZ2V0bWVkaWEvOGFjOGFiOGMtZTdmYy00OTdiLTgzODQtNDQxNjE1ZjUwZmYwL2VjaWdzX0suanBnLmpwZyIpCmBgYAoKIyMjIyMgW1tzb3VyY2VdKGh0dHBzOi8vd3d3Lmx1bmcub3JnL3F1aXQtc21va2luZy9lLWNpZ2FyZXR0ZXMtdmFwaW5nL2x1bmctaGVhbHRoKV0KClNlZSB0aGlzIFtDREMgZ3VpZGVdKGh0dHBzOi8vd3d3LmNkYy5nb3YvdG9iYWNjby9iYXNpY19pbmZvcm1hdGlvbi9lLWNpZ2FyZXR0ZXMvcGRmcy9lY2lnYXJldHRlLW9yLXZhcGluZy1wcm9kdWN0cy12aXN1YWwtZGljdGlvbmFyeS01MDgucGRmKXt0YXJnZXQ9Il9ibGFuayJ9IGFuZCB0aGUgW0FtZXJpY2FuIEx1bmcgQXNzb2NpYXRpb24gd2Vic2l0ZV0oaHR0cHM6Ly93d3cubHVuZy5vcmcvcXVpdC1zbW9raW5nL2UtY2lnYXJldHRlcy12YXBpbmcvbHVuZy1oZWFsdGgpe3RhcmdldD0iX2JsYW5rIn0gZm9yIG1vcmUgaW5mb3JtYXRpb24uIAoKVGhlIHJlcG9ydCBmb3VuZCB0aGF0OgoKPiBEdXJpbmcgMjAxN+KAkzIwMTgsIGN1cnJlbnQgdXNlIG9mIGFueSB0b2JhY2NvIHByb2R1Y3QgKippbmNyZWFzZWQgMzguMyUqKiAoZnJvbSAxOS42JSB0byAyNy4xJSkgYW1vbmcgaGlnaCBzY2hvb2wgc3R1ZGVudHMgYW5kICoqMjguNiUqKiAoZnJvbSA1LjYlIHRvIDcuMiUpIGFtb25nIG1pZGRsZSBzY2hvb2wgc3R1ZGVudHM7IGUtY2lnYXJldHRlIHVzZSAqKmluY3JlYXNlZCA3Ny44JSoqIChmcm9tIDExLjclIHRvIDIwLjglKSBhbW9uZyBoaWdoIHNjaG9vbCBzdHVkZW50cyBhbmQgKio0OC41JSoqIChmcm9tIDMuMyUgdG8gNC45JSkgYW1vbmcgbWlkZGxlIHNjaG9vbCBzdHVkZW50cy4KCgpJbiAyMDE4LCB0aGUgW0ZlZGVyYWwgRHJ1ZyBBZG1pbmlzdHJhdGlvbiAoRkRBKSBpbiB0aGUgVW5pdGVkIFN0YXRlc10oaHR0cHM6Ly9hY3Nqb3VybmFscy5vbmxpbmVsaWJyYXJ5LndpbGV5LmNvbS9kb2kvZnVsbC8xMC4xMDAyL2NuY3IuMzE4Njgpe3RhcmdldD0iX2JsYW5rIn0gc3RhdGVkIHRoYXQgZS1jaWdhcmV0dGUgdXNhZ2UgdXNlIGFtb25nIHlvdXRoIHJlYWNoZWQ6ICAKCj4g4oCcbm90aGluZyBzaG9ydCBvZiBhbiAqKmVwaWRlbWljIHByb3BvcnRpb24gb2YgZ3Jvd3RoKirigJ0KCgpJbiB0aGlzIGNhc2Ugc3R1ZHksIHdlIHdpbGwgYmUgaW52ZXN0aWdhdGluZyB0aGUgc2FtZSBkYXRhIHVzZWQgaW4gdGhlIHJlcG9ydCB0aGF0IGdlbmVyYXRlZCB0aGUgYWJvdmUgZmluZGluZ3MuIFRoaXMgZGF0YSBjb21lcyBmcm9tIHRoZSBbVGhlIE5hdGlvbmFsIFlvdXRoIFRvYmFjY28gU3VydmV5IChOWVRTKV0oaHR0cHM6Ly93d3cuY2RjLmdvdi90b2JhY2NvL2RhdGFfc3RhdGlzdGljcy9zdXJ2ZXlzL255dHMvaW5kZXguaHRtKXt0YXJnZXQ9Il9ibGFuayJ9LgoKIyMjIyB7LnJlZmVyZW5jZV9ibG9ja30KCkdlbnR6a2UsIEFuZHJlYSBTLiwgTWVsaXNhIENyZWFtZXIsIEthcmVuIEEuIEN1bGxlbiwgQnJpZGdldCBLLiBBbWJyb3NlLCBHb3Jkb24gV2lsbGlzLCBBaG1lZCBKYW1hbCwgYW5kIEJyaWFuIEEuIEtpbmcuICDigJxWaXRhbCBTaWduczogVG9iYWNjbyBQcm9kdWN0IFVzZSBBbW9uZyBNaWRkbGUgYW5kIEhpZ2ggU2Nob29sIFN0dWRlbnRzIC0gVW5pdGVkIFN0YXRlcywgMjAxMS0yMDE4LuKAnSAqKk1NV1IuIE1vcmJpZGl0eSBhbmQgTW9ydGFsaXR5IFdlZWtseSBSZXBvcnQqKiA2OCAoNik6IDE1N+KAkzY0ICgyMDE5KS4KCiMjIyMKCgojIyAqKk1haW4gUXVlc3Rpb25zKioKKioqIAoKIyMjIyB7Lm1haW5fcXVlc3Rpb25fYmxvY2t9CjxiPjx1PiBPdXIgbWFpbiBxdWVzdGlvbjogPC91PjwvYj4KCjEpIEhvdyBoYXMgdG9iYWNjby9uaWNvdGluZSBhbmQgZS1jaWdhcmV0dGUgdXNlIGJ5IEFtZXJpY2FuIHlvdXRocyBjaGFuZ2VkIHNpbmNlIDIwMTU/CjIpIEhvdyBkbyB2YXBpbmcgcmF0ZXMgY29tcGFyZSBiZXR3ZWVuIG1hbGVzIGFuZCBmZW1hbGVzPwozKSBXaGF0IHZhcGluZyBicmFuZHMgYW5kIGZsYXZvcnMgYXBwZWFyIHRvIGJlIHVzZWQgdGhlIG1vc3QgZnJlcXVlbnRseT8gIApXZSB3aWxsIGJhc2UgdGhpcyBvbiB0aGUgZm9sbG93aW5nIHN1cnZleSBxdWVzdGlvbnM6ICAgCj4gIkR1cmluZyB0aGUgcGFzdCAzMCBkYXlzLCB3aGF0IGJyYW5kIG9mIGUtY2lnYXJldHRlcyBkaWQgeW91IHVzdWFsbHkgdXNlPyIgICAKPiIgV2hhdCBmbGF2b3JzIG9mIHRvYmFjY28gcHJvZHVjdHMgaGF2ZSB5b3UgdXNlZCBpbiB0aGUgcGFzdAozMCBkYXlzPyIgCgo0KSBIYXZlIHZhcGluZyByYXRlcyBwb3NzaWJseSBpbmZsdWVuY2VkIHRvYmFjY28vbmljb3RpbmUgdXNlPwoKIyMjIwoKCiMjICoqTGVhcm5pbmcgT2JqZWN0aXZlcyoqIAoqKiogCgpJbiB0aGlzIGNhc2Ugc3R1ZHksIHdlIHdpbGwgY292ZXIgaG93IHRvIGltcG9ydCBkYXRhIGZyb20gbXVsdGlwbGUgZmlsZXMgZWZmaWNpZW50bHksIGhvdyB0byBpbXBvcnQgZGF0YSBmcm9tIGV4Y2VsIGZpbGVzLCBhbmQgaG93IHRvIG1ha2UgYSB2YXJpZXR5IG9mIHZpc3VhbGl6YXRpb25zIHRvIGNvbXBhcmUgbXVsdGlwbGUgZ3JvdXBzIGFjcm9zcyB0aW1lLiBXZSB3aWxsIGFsc28gZGVtb25zdHJhdGUgaG93IHRvIHdvcmsgd2l0aCBjb2RlYm9va3MuIFdlIHdpbGwgY292ZXIgdGhlIGNvbmNlcHQgb2Ygc3VydmV5IHdlaWdodGluZyBhbmQgaW50cm9kdWNlIHRoZSBgc3J2eXJgIHBhY2thZ2UuIFdlIHdpbGwgZGlzY3VzcyB0aGUgZGlmZmVyZW5jZSBiZXR3ZWVuIHBvb2xlZCBjcm9zcy1zZWN0aW9uYWwgZGF0YSBhbmQgcGFuZWwgZGF0YS4gV2Ugd2lsbCBlc3BlY2lhbGx5IGZvY3VzIG9uIHVzaW5nIHBhY2thZ2VzIGFuZCBmdW5jdGlvbnMgZnJvbSB0aGUgW2BUaWR5dmVyc2VgXShodHRwczovL3d3dy50aWR5dmVyc2Uub3JnLyl7dGFyZ2V0PSJfYmxhbmsifSBmb3Igd3JhbmdsaW5nIGRhdGEsIHN1Y2ggYXMgYHRpZHlyYCBhbmQgYGRwbHlyYCBhbmQgZm9yIHZpc3VhbGl6YXRpb24sIHN1Y2ggYXMgYXMgYGdncGxvdDJgLiBUaGUgdGlkeXZlcnNlIGlzIGEgbGlicmFyeSBvZiBwYWNrYWdlcyBjcmVhdGVkIGJ5IFJTdHVkaW8uIFdoaWxlIHNvbWUgc3R1ZGVudHMgbWF5IGJlIGZhbWlsaWFyIHdpdGggcHJldmlvdXMgUiBwcm9ncmFtbWluZyBwYWNrYWdlcywgdGhlc2UgcGFja2FnZXMgbWFrZSBkYXRhIHNjaWVuY2UgaW4gUiBlc3BlY2lhbGx5IGVmZmljaWVudC4KCgpgYGB7ciwgb3V0LndpZHRoID0gIjIwJSIsIGVjaG8gPSBGQUxTRSwgZmlnLmFsaWduID0iY2VudGVyIn0KCmluY2x1ZGVfZ3JhcGhpY3MoImh0dHBzOi8vdGlkeXZlcnNlLnRpZHl2ZXJzZS5vcmcvbG9nby5wbmciKQpgYGAKCgoqKiogCgoKV2Ugd2lsbCBiZWdpbiBieSBsb2FkaW5nIHRoZSBwYWNrYWdlcyB0aGF0IHdlIHdpbGwgbmVlZDoKCmBgYHtyfQpsaWJyYXJ5KGhlcmUpCmxpYnJhcnkocmVhZHhsKQpsaWJyYXJ5KHN0cmluZ3IpCmxpYnJhcnkocHVycnIpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkocmVhZHIpCmxpYnJhcnkodGlkeXIpCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShzY2FsZXMpCmxpYnJhcnkodmlyaWRpcykKbGlicmFyeShmb3JjYXRzKQpsaWJyYXJ5KHNydnlyKQpsaWJyYXJ5KGNvd3Bsb3QpCmBgYAoKIFBhY2thZ2UgICB8IFVzZSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKLS0tLS0tLS0tLSB8LS0tLS0tLS0tLS0tLQpbaGVyZV0oaHR0cHM6Ly9naXRodWIuY29tL2plbm55YmMvaGVyZV9oZXJlKXt0YXJnZXQ9Il9ibGFuayJ9ICAgICAgIHwgdG8gZWFzaWx5IGxvYWQgYW5kIHNhdmUgZGF0YSAgCltyZWFkeGxdKGh0dHBzOi8vcmVhZHhsLnRpZHl2ZXJzZS5vcmcvKXt0YXJnZXQ9Il9ibGFuayJ9ICAgICAgfCB0byBpbXBvcnQgdGhlIGRhdGEgaW4gdGhlIGV4Y2VsIGZpbGVzIApbc3RyaW5ncl0oaHR0cHM6Ly9zdHJpbmdyLnRpZHl2ZXJzZS5vcmcvYXJ0aWNsZXMvc3RyaW5nci5odG1sKXt0YXJnZXQ9Il9ibGFuayJ9ICAgIHwgdG8gbWFuaXB1bGF0ZSB0aGUgY2hhcmFjdGVyIHN0cmluZ3Mgd2l0aGluIHRoZSBkYXRhICAKW3B1cnJyXShodHRwczovL3B1cnJyLnRpZHl2ZXJzZS5vcmcvKXt0YXJnZXQ9Il9ibGFuayJ9ICAgfCB0byBpbXBvcnQgdGhlIGRhdGEgaW4gYWxsIHRoZSBkaWZmZXJlbnQgZXhjZWwgYW5kIGNzdiBmaWxlcyBlZmZpY2llbnRseQpbZHBseXJdKGh0dHBzOi8vZHBseXIudGlkeXZlcnNlLm9yZy8pe3RhcmdldD0iX2JsYW5rIn0gICAgICB8IHRvIGFycmFuZ2UvZmlsdGVyL3NlbGVjdC9jb21wYXJlIHNwZWNpZmljIHN1YnNldHMgb2YgdGhlIGRhdGEgIApbcmVhZHJdKGh0dHBzOi8vcmVhZHIudGlkeXZlcnNlLm9yZy8pe3RhcmdldD0iX2JsYW5rIn0gICAgICB8IHRvIGltcG9ydCB0aGUgQ1NWIGZpbGUgZGF0YQpbdGlkeXJdKGh0dHBzOi8vdGlkeXIudGlkeXZlcnNlLm9yZy8pe3RhcmdldD0iX2JsYW5rIn0gICAgICB8IHRvIHJlYXJyYW5nZSBkYXRhIGluIHdpZGUgYW5kIGxvbmcgZm9ybWF0cyAKW2dncGxvdDJdKGh0dHBzOi8vZ2dwbG90Mi50aWR5dmVyc2Uub3JnLyl7dGFyZ2V0PSJfYmxhbmsifSAgICB8IHRvIG1ha2UgdmlzdWFsaXphdGlvbnMgd2l0aCBtdWx0aXBsZSBsYXllcnMKW3NjYWxlc10oaHR0cHM6Ly9jcmFuLnItcHJvamVjdC5vcmcvd2ViL3BhY2thZ2VzL3NjYWxlcy9zY2FsZXMucGRmKXt0YXJnZXQ9Il9ibGFuayJ9ICAgIHwgdG8gYWxsb3cgdXMgdG8gbG9vayBhdCB0aGUgY29sb3JzIHdpdGhpbiB0aGUgdmlyaWRpcyBwYWNrYWdlClt2aXJpZGlzXShodHRwczovL2NyYW4uci1wcm9qZWN0Lm9yZy93ZWIvcGFja2FnZXMvdmlyaWRpcy92aWduZXR0ZXMvaW50cm8tdG8tdmlyaWRpcy5odG1sKXt0YXJnZXQ9Il9ibGFuayJ9ICAgIHwgdG8gbWFrZSBwbG90cyB3aXRoIGEgY29sb3IgcGFsZXR0ZSB0aGF0IGlzIGNvbXBhdGlibGUgd2l0aCBjb2xvciBibGluZG5lc3MKW2ZvcmNhdHNdKGh0dHBzOi8vZm9yY2F0cy50aWR5dmVyc2Uub3JnLyl7dGFyZ2V0PSJfYmxhbmsifSAgICB8IHRvIGFsbG93IGZvciByZW9yZGVyaW5nIG9mIGZhY3RvcnMgaW4gcGxvdHMKW3N5cnZyXShodHRwczovL2NyYW4uci1wcm9qZWN0Lm9yZy93ZWIvcGFja2FnZXMvc3J2eXIvc3J2eXIucGRmKXt0YXJnZXQ9Il9ibGFuayJ9IHwgdG8gdXNlIHN1cnZleSB3ZWlnaHRzCltjb3dwbG90XShodHRwczovL2NyYW4uci1wcm9qZWN0Lm9yZy93ZWIvcGFja2FnZXMvY293cGxvdC92aWduZXR0ZXMvaW50cm9kdWN0aW9uLmh0bWwpe3RhcmdldD0iX2JsYW5rIn0gfCB0byBhbGxvdyBwbG90cyB0byBiZSBjb21iaW5lZCAKCgpUaGUgZmlyc3QgdGltZSB3ZSB1c2UgYSBmdW5jdGlvbiwgd2Ugd2lsbCB1c2UgdGhlIGA6OmAgdG8gaW5kaWNhdGUgd2hpY2ggcGFja2FnZSB3ZSBhcmUgdXNpbmcuIFVubGVzcyB3ZSBoYXZlIG92ZXJsYXBwaW5nIGZ1bmN0aW9uIG5hbWVzLCB0aGlzIGlzIG5vdCBuZWNlc3NhcnksIGJ1dCB3ZSB3aWxsIGluY2x1ZGUgaXQgaGVyZSB0byBiZSBpbmZvcm1hdGl2ZSBhYm91dCB3aGVyZSB0aGUgZnVuY3Rpb25zIHdlIHdpbGwgdXNlIGNvbWUgZnJvbS4KCgojIyAqKkNvbnRleHQqKgoqKiogCgpBY2NvcmRpbmcgdG8gdGhlIGNpdGVkIFtNb3JiaWRpdHkgYW5kIE1vcnRhbGl0eSBXZWVrbHkgUmVwb3J0XShodHRwczovL3d3dy5jZGMuZ292L21td3Ivdm9sdW1lcy82OC93ci9tbTY4MDZlMS5odG0/c19jaWQ9bW02ODA2ZTFfdykgdGhpcyB3YXMgd2hhdCB3YXMgYWxyZWFkeSBrbm93biBhYm91dCB0aGlzIHRvcGljIGFuZCB0aGUgaW1wbGljYXRpb25zIG9mIHRoaXMgc3R1ZHk6CgpgYGB7ciwgZWNobyA9IEZBTFNFLCBmaWcuYWxpZ24gPSJjZW50ZXIiLCBvdXQud2lkdGggPSAiODAwIHB4In0KCmtuaXRyOjppbmNsdWRlX2dyYXBoaWNzKGhlcmU6OmhlcmUoImltZyIsICJjb250ZXh0LnBuZyIpKQoKYGBgCgoKSW1wb3J0YW50bHksIHRoZSB2YXBvcnMgdXNlZCBpbiBlLWNpZ2FyZXR0ZXMgY29udGFpbiBoYXJtZnVsIGNoZW1pY2FsczoKCmBgYHtyLCBlY2hvID0gRkFMU0UsIGZpZy5hbGlnbiA9ImNlbnRlciJ9CgppbmNsdWRlX2dyYXBoaWNzKCJodHRwczovL3d3dy5jZGMuZ292L3RvYmFjY28vYmFzaWNfaW5mb3JtYXRpb24vZS1jaWdhcmV0dGVzL2ltYWdlcy9lLWNpZ2FyZXR0ZS1hZXJvc29sLWNhbi1jb250YWluLWhhcm1mdWwtaW5ncmVkaWVudHMtZGVza3RvcC03MDAuanBnIikKYGBgCgojIyMjIFtbc291cmNlXShodHRwczovL3d3dy5jZGMuZ292L3RvYmFjY28vYmFzaWNfaW5mb3JtYXRpb24vZS1jaWdhcmV0dGVzL2ltYWdlcy9lLWNpZ2FyZXR0ZS1hZXJvc29sLWNhbi1jb250YWluLWhhcm1mdWwtaW5ncmVkaWVudHMtZGVza3RvcC03MDAuanBnKV17dGFyZ2V0PSJfYmxhbmsifSAKCkUtY2lnYXJldHRlIHVzYWdlIGhhcyBhbHNvIGJlZW4gYXNzb2NpYXRlZCB3aXRoIFtsdW5nIGluanVyeV0oKGh0dHBzOi8vd3d3LmZyb250aWVyc2luLm9yZy9hcnRpY2xlcy8xMC4zMzg5L2ZwaGFyLjIwMTkuMDE2MTkvZnVsbCkpe3RhcmdldD0iX2JsYW5rIn06CgpgYGB7ciwgZWNobyA9IEZBTFNFLCBmaWcuYWxpZ24gPSJjZW50ZXIiLCBvdXQud2lkdGggPSAiODAwIHB4In0KCmtuaXRyOjppbmNsdWRlX2dyYXBoaWNzKGhlcmU6OmhlcmUoImltZyIsICJsdW5nLnBuZyIpKQpgYGAKCiMjIyMgW1tzb3VyY2VdKGh0dHBzOi8vd3d3LmZyb250aWVyc2luLm9yZy9hcnRpY2xlcy8xMC4zMzg5L2ZwaGFyLjIwMTkuMDE2MTkvZnVsbClde3RhcmdldD0iX2JsYW5rIn0gCgpTZWUgW2hlcmVdKGh0dHBzOi8vd3d3LmNkYy5nb3YvdG9iYWNjby9iYXNpY19pbmZvcm1hdGlvbi9lLWNpZ2FyZXR0ZXMvUXVpY2stRmFjdHMtb24tdGhlLVJpc2tzLW9mLUUtY2lnYXJldHRlcy1mb3ItS2lkcy1UZWVucy1hbmQtWW91bmctQWR1bHRzLmh0bWwpe3RhcmdldD0iX2JsYW5rIn0gZm9yIGFkZGl0aW9uYWwgaW5mb3JtYXRpb24gYWJvdXQgdGhlIHBvdGVudGlhbCBoZWFsdGggZWZmZWN0cyBvZiBlLWNpZ2FyZXR0ZXMgaW4gdGVlbnMgYW5kIHlvdW5nIGFkdWx0cy4KCiMjICoqTGltaXRhdGlvbnMqKgoqKiogClRoZXJlIGFyZSBzb21lIGltcG9ydGFudCBjb25zaWRlcmF0aW9ucyByZWdhcmRpbmcgdGhpcyBkYXRhIGFuYWx5c2lzIHRvIGtlZXAgaW4gbWluZDogCgoxKSBUaGUgZGF0YSBpbmNsdWRlZCBpbiB0aGUgW05hdGlvbmFsIFlvdXRoIFRvYmFjY28gU3VydmV5IChOWVRTKV0oaHR0cHM6Ly93d3cuY2RjLmdvdi90b2JhY2NvL2RhdGFfc3RhdGlzdGljcy9zdXJ2ZXlzL255dHMvaW5kZXguaHRtKXt0YXJnZXQ9Il9ibGFuayJ9IGRvZXMgbm90IGZvbGxvdyB0aGUgc2FtZSBpbmRpdmlkdWFsIHN0dWRlbnRzIG92ZXIgdGltZS4gIEEgW2xvbmdpdHVkaW5hbCBzdHVkeV0oaHR0cHM6Ly93d3cuYm1qLmNvbS9hYm91dC1ibWovcmVzb3VyY2VzLXJlYWRlcnMvcHVibGljYXRpb25zL2VwaWRlbWlvbG9neS11bmluaXRpYXRlZC83LWxvbmdpdHVkaW5hbC1zdHVkaWVzKXt0YXJnZXQ9Il9ibGFuayJ9IHRoYXQgZG9lcyBmb2xsb3cgdGhlIHNhbWUgaW5kaXZpZHVhbHMgb3ZlciB0aW1lIGNvbGxlY3RzIGRhdGEgY2FsbGVkIFtwYW5lbCBkYXRhXShodHRwczovL2VuLndpa2lwZWRpYS5vcmcvd2lraS9QYW5lbF9kYXRhKS4gVGhlIGRhdGEgaW4gdGhpcyBzdHVkeSBpcyBjYWxsZWQgcG9vbGVkIFtjcm9zcy1zZWN0aW9uYWwgZGF0YV0oaHR0cHM6Ly9lbi53aWtpcGVkaWEub3JnL3dpa2kvQ3Jvc3Mtc2VjdGlvbmFsX2RhdGEpLCBhbmQgaXMgb2J0YWluZWQgZnJvbSByYW5kb20gY29sbGVjdGlvbiBvZiBvYnNlcnZhdGlvbnMgYWNyb3NzIHRpbWUuCgpBY2NvcmRpbmcgdG8gV2lraXBlZGlhOgoKPiBQYW5lbCBkYXRhIGRpZmZlcnMgZnJvbSBwb29sZWQgY3Jvc3Mtc2VjdGlvbmFsIGRhdGEgYWNyb3NzIHRpbWUsIGJlY2F1c2UgaXQgZGVhbHMgd2l0aCB0aGUgb2JzZXJ2YXRpb25zIG9uIHRoZSBzYW1lIHN1YmplY3RzIGluIGRpZmZlcmVudCB0aW1lcyB3aGVyZWFzIHRoZSBsYXR0ZXIgb2JzZXJ2ZXMgZGlmZmVyZW50IHN1YmplY3RzIGluIGRpZmZlcmVudCB0aW1lIHBlcmlvZHMKCjIpIFRoZSBkYXRhIGluY2x1ZGUgcGVyY2VudGFnZXMgb2Ygc3R1ZGVudHMgcmVwb3J0aW5nIHVzZSBvZiBlYWNoIHBhcnRpY3VsYXIgdG9iYWNjbyBwcm9kdWN0LCBidXQgdGhlIHN1cnZleSBxdWVzdGlvbnMgZGlkIG5vdCBhc2sgdGhlIHJlbGF0aXZlIGFtb3VudCBvZiB1c2Ugb2Ygb25lIHByb2R1Y3QgY29tcGFyZWQgdG8gYW5vdGhlci4gRm9yIGV4YW1wbGUgdGhlIHN1cnZleSBpbmNsdWRlZCBxdWVzdGlvbnMgbGlrZToiV2hhdCBmbGF2b3JzIG9mIHRvYmFjY28gcHJvZHVjdHMgaGF2ZSB5b3UgdXNlZCBpbiB0aGUgcGFzdCAzMCBkYXlzPyIgYnV0IGRpZCBub3QgYXNrIGhvdyBvZnRlbiBvbmUgZmxhdm9yIHdhcyB1c2VkIGJ5IHRoZSBzYW1lIGluZGl2aWR1YWwgb3ZlciBhbm90aGVyLgoKV2hpbGUgW2dlbmRlcl0oaHR0cHM6Ly93d3cuZ2VuZGVyc3BlY3RydW0ub3JnL3F1aWNrLWxpbmtzL3VuZGVyc3RhbmRpbmctZ2VuZGVyLyl7dGFyZ2V0PSJfYmxhbmsifSBhbmQgW3NleF0oaHR0cHM6Ly93d3cud2hvLmludC9nZW5vbWljcy9nZW5kZXIvZW4vaW5kZXgxLmh0bWwpe3RhcmdldD0iX2JsYW5rIn0gYXJlIG5vdCBhY3R1YWxseSBiaW5hcnksIHRoZSBkYXRhIHVzZWQgaW4gdGhpcyBhbmFseXNpcyBvbmx5IGNvbnRhaW4gaW5mb3JtYXRpb24gZm9yIGdyb3VwcyBvZiBpbmRpdmlkdWFscyB3aG8gYW5zd2VyZWQgdGhlIHN1cnZleSBxdWVzdGlvbnMgYXMgbWFsZSBvciBmZW1hbGUuIAoKIyMgKipXaGF0IGFyZSB0aGUgZGF0YT8qKgoqKiogCiAKVGhlIGRhdGEgaW4gdGhpcyBjYXNlIHN0dWR5IGNvbWVzIGZyb20gdGhlIFtOYXRpb25hbCBZb3V0aCBUb2JhY2NvIFN1cnZleSAoTllUUyldKGh0dHBzOi8vd3d3LmNkYy5nb3YvdG9iYWNjby9kYXRhX3N0YXRpc3RpY3Mvc3VydmV5cy9ueXRzL2luZGV4Lmh0bSl7dGFyZ2V0PSJfYmxhbmsifSB3aGljaCBpcyBhbiBhbm51YWwgc3VydmV5IHRoYXQgYXNrcyBzdHVkZW50cyAgaW4gaGlnaCBzY2hvb2wgYW5kIG1pZGRsZSBzY2hvb2wgKGdyYWRlcyA2LTEyKSBhYm91dCB0b2JhY2NvIHVzYWdlIGluIHRoZSBVbml0ZWQgU3RhdGVzIG9mIEFtZXJpY2EuCgpUaGUgZGF0YSBmb3IgdGhpcyBzdXJ2ZXkgaXMgZnJlZWx5IGF2YWlsYWJsZSBvbmxpbmUgYXQgdGhpcyBbd2Vic2l0ZV0oaHR0cHM6Ly93d3cuY2RjLmdvdi90b2JhY2NvL2RhdGFfc3RhdGlzdGljcy9zdXJ2ZXlzL255dHMvZGF0YS9pbmRleC5odG1sKXt0YXJnZXQ9Il9ibGFuayJ9IHdpdGggZGF0YSBmcm9tIDE5OTksIDIwMDAsIDIwMDIsIDIwMDQsIDIwMDYsIDIwMDksICBhbmQgMjAxMS0yMDE5LiBXZSB3aWxsIGJlIHVzaW5nIGRhdGEgZnJvbSAqKjIwMTUtMjAxOSoqIGR1ZSB0byB0aGUgZmFjdCB0aGF0IHRoZXNlIHllYXJzIGFyZSB0aGUgbW9zdCByZWNlbnQgdGhhdCBhc2tlZCBxdWVzdGlvbnMgcmVnYXJkaW5nIGUtY2lnYXJldHRlIHVzYWdlLgoKRWFjaCB5ZWFyIGluY2x1ZGVzIGRvY3VtZW50YXRpb24sIHN1Y2ggYXMgYSBbY29kZWJvb2tdKGh0dHBzOi8vd3d3LmljcHNyLnVtaWNoLmVkdS9pY3BzcndlYi9jb250ZW50L3NoYXJlZC9JQ1BTUi9mYXFzL3doYXQtaXMtYS1jb2RlYm9vay5odG1sKSBhbmQgYW4gZXhjZWwgZmlsZSBjb250YWluaW5nIHRoZSBkYXRhOgoKYGBge3IsIGVjaG8gPSBGQUxTRSwgZmlnLmFsaWduID0iY2VudGVyIiwgb3V0LndpZHRoID0gIjYwMCBweCJ9Cgprbml0cjo6aW5jbHVkZV9ncmFwaGljcyhoZXJlOjpoZXJlKCJpbWciLCAiZGF0YS5wbmciKSkKYGBgClRoZXJlZm9yZSwgc2luY2Ugd2UgYXJlIHVzaW5nIGRhdGEgZnJvbSAqKjIwMTUtMjAxOSoqLCB0aGUgZGF0YSB3ZSBhcmUgaW50ZXJlc3RlZCBpbiBhcmUgbG9jYXRlZCBpbiA1IGRpZmZlcmVudCBleGNlbCBmaWxlcywgb25lIGZvciBlYWNoIHllYXIsIGVhY2ggd2l0aCBpdHMgb3duIFtjb2RlYm9va10oaHR0cHM6Ly93d3cuaWNwc3IudW1pY2guZWR1L2ljcHNyd2ViL2NvbnRlbnQvc2hhcmVkL0lDUFNSL2ZhcXMvd2hhdC1pcy1hLWNvZGVib29rLmh0bWwpLgoKVGhlIFtjb2RlYm9va10oaHR0cHM6Ly93d3cuaWNwc3IudW1pY2guZWR1L2ljcHNyd2ViL2NvbnRlbnQvc2hhcmVkL0lDUFNSL2ZhcXMvd2hhdC1pcy1hLWNvZGVib29rLmh0bWwpIGNvbnRhaW5zIGluZm9ybWF0aW9uIGRlc2NyaWJpbmcgdGhlIGRhdGEgd2l0aGluIHRoZSBleGNlbCBmaWxlLiAKCkFzIHlvdSBjYW4gc2VlIHRoZSBleGNlbCBmaWxlIGNvbnRhaW5zIHZlcnkgc2hvcnQgdmFyaWFibGUgbmFtZXMgYW5kIG51bWVyaWMgdmFsdWVzLCBhbmQgaXQgaXMgbm90IGNsZWFyIHdoYXQgdGhleSBtZWFuIHdpdGhvdXQgdGhlIGNvZGVib29rOgoKYGBge3IsIGVjaG8gPSBGQUxTRSwgZmlnLmFsaWduID0iY2VudGVyIiwgb3V0LndpZHRoID0gIjYwMCBweCJ9Cgprbml0cjo6aW5jbHVkZV9ncmFwaGljcyhoZXJlOjpoZXJlKCJpbWciLCAiZXhjZWwucG5nIikpCmBgYAoKVGhlIGNvZGVib29rIGV4cGxhaW5zIHdoYXQgdGhlIHZhcmlhYmxlcyAodGhlIGNvbHVtbnMpIGFyZToKYGBge3IsIGVjaG8gPSBGQUxTRSwgZmlnLmFsaWduID0iY2VudGVyIiwgb3V0LndpZHRoID0gIjYwMCBweCJ9Cgprbml0cjo6aW5jbHVkZV9ncmFwaGljcyhoZXJlOjpoZXJlKCJpbWciLCAidmFyaWFibGVzLnBuZyIpKQpgYGAKCkFuZCB0aGUgY29kZWJvb2sgZXhwbGFpbnMgd2hhdCB0aGUgdmFsdWVzIGZvciBlYWNoIHZhcmlhYmxlIGFyZToKCmBgYHtyLCBlY2hvID0gRkFMU0UsIGZpZy5hbGlnbiA9ImNlbnRlciIsIG91dC53aWR0aCA9ICI2MDAgcHgifQoKa25pdHI6OmluY2x1ZGVfZ3JhcGhpY3MoaGVyZTo6aGVyZSgiaW1nIiwgInFuMS5wbmciKSkKYGBgCgpXZSB3aWxsIGV4cGxhaW4gbW9yZSBsYXRlciBhYm91dCB3aGF0IHRoZSB2YWx1ZXMgb24gdGhlIHJpZ2h0IGluZGljYXRlLgoKVGhlIHJlYXNvbiB0aGF0IHRoZXJlIGFyZSBjb2RlYm9va3MgZm9yIGVhY2ggeWVhciBpcyBiZWNhdXNlIHRoZSBxdWVzdGlvbnMgYXNrZWQgZWFjaCB5ZWFyIHZhcmllZCBzbGlnaHRseS4KCgpUaGUgZGF0YSBpbiB0aGlzIHN1cnZleSBhcmUgcG9vbGVkIGNyb3NzLXNlY3Rpb25hbCBkYXRhLiBJbiB0aGlzIHN0dWR5IGRlc2lnbiwgZGlmZmVyZW50IHN1YnNldHMgb2Ygc3R1ZGVudHMgYXJlIHN1cnZleWVkIGVhY2ggeWVhciBhbmQgaXQgaXMgbm90IGNsZWFyIHdoaWNoLCBpZiBhbnksIGluZGl2aWR1YWxzIHBhcnRpY2lwYXRlIG1vcmUgdGhhbiBvbmNlIGZyb20gb25lIHllYXIgdG8gdGhlIG5leHQuCgojIyAqKkRhdGEgSW1wb3J0KioKKioqIAoKIyMjIFJlYWRpbmcgaW4gdGhlIGV4Y2VsIGZpbGVzCioqKgpTaW5jZSB0aGVzZSBleGNlbCBmaWxlcyBhcmUgc28gbGFyZ2UgKGVhY2ggaGFzIHJvdWdobHkgMjAsMDAwIHJvd3MpLCBpdCB0YWtlcyBhIGJpdCBvZiB0aW1lIGZvciB0aGUgZGF0YSB0byBsb2FkLiBUbyBtYWtlIHRoZSBwcm9jZXNzIGZhc3Rlciwgd2UgcHJldmlvdXNseSBpbXBvcnRlZCB0aGVzZSBmaWxlcywgc2VsZWN0ZWQgb25seSB0aGUgY29sdW1ucyByZWxldmFudCB0byBvdXIgcXVlc3Rpb25zIG9mIGludGVyZXN0LCBhbmQgc2F2ZWQgdGhlc2UgZGF0YSBzdWJzZXRzIGFzIGNvbW1hLXNlcGFyYXRlZCAoLmNzdikgZmlsZXMuIAoKPGRldGFpbHM+PHN1bW1hcnk+IENsaWNrIGhlcmUgZm9yIGRldGFpbHMgb24gaG93IHRoZSBkYXRhIHdlcmUgb3JpZ2luYWxseSBpbXBvcnRlZCA8L3N1bW1hcnk+CgpGaXJzdCB3ZSBjcmVhdGVkIGEgdmVjdG9yIG9mIGZpbGUgbmFtZXMgb2YgYWxsIHRoZSBkaWZmZXJlbnQgZXhjZWwgZmlsZXMuIFVzaW5nIHRoZSBgaGVyZSgpYCBmdW5jdGlvbiBvZiB0aGUgYGhlcmVgIHBhY2thZ2UsIHdlIGxvb2tlZCBpbiBhbGwgdGhlIGRpcmVjdG9yaWVzIG9mIHRoZSBwcm9qZWN0LgpUaGUgYGxpc3QuZmlsZXMoKWAgZnVuY3Rpb24gbG9va2VkIGZvciBhbGwgZmlsZXMgd2l0aCAueGxzeCB3aXRoaW4gdGhlc2Ugc3ViLWRpcmVjdG9yaWVzLgpgYGB7cn0KZXhjZWxfZmlsZXM8LWxpc3QuZmlsZXMoaGVyZTo6aGVyZSgpLCByZWN1cnNpdmUgPSBUUlVFLAogICAgICAgICAgICAgICAgICBwYXR0ZXJuID0gIioueGxzeCIpCmV4Y2VsX2ZpbGVzCmBgYAoKQWxsIHRoZSBmaWxlcyB3ZXJlIHJlYWQgdXNpbmcgYHJlYWRfZXhjZWwoKWAgb2YgdGhlIGByZWFkeGxgIHBhY2thZ2UuIFVzaW5nIHRoZSBgbWFwKClgIGZ1bmN0aW9uIG9mIHRoZSBgcHVycnJgIHBhY2thZ2UgdGhpcyB3YXMgZG9uZSBlZmZpY2llbnRseSBmb3IgYWxsIG9mIHRoZSBleGNlbCBmaWxlcyBpbiB0aGUgdmVjdG9yIHVzaW5nIG9uZSBjb21tYW5kLiBUaGUgYC5gIGlzIHVzZWQgdG8gaW5kaWNhdGUgdGhhdCB3ZSB3YW50IHRvIGFwcGx5IHRoZSBgcmVhZF9leGNlbCgpYCBmdW5jdGlvbiB0byBlYWNoIGVsZW1lbnQgb2YgdGhlIGRhdGEgdGhhdCB3ZSBqdXN0IHBpcGVkIGludG8gdGhlIGBtYXAoKWAgZnVuY3Rpb24uCgpIZXJlIHdlIGFsc28gdXNlZCB0aGUgYCU+JWAgcGlwZSB3aGljaCBjYW4gYmUgdXNlZCB0byBwYXNzIHRoZSBpbnB1dCBmcm9tIG9uZSBmdW5jdGlvbiB0byBhbm90aGVyIGZvciBsYXRlciBzZXF1ZW50aWFsIHN0ZXBzLiAKClRoaXMgY3JlYXRlZCBhIHNpbmdsZSBsaXN0IG9mIHRpYmJsZXMgKG9uZSBmb3IgZWFjaCBmaWxlKS4gCmBgYHtyLCBldmFsID0gRkFMU0V9CnRibF9maWxlcyA8LSBleGNlbF9maWxlcyAlPiUgCiAgICAgICBtYXAofnJlYWR4bDo6cmVhZF9leGNlbCguKSkKYGBgCgpUaGUgZWxlbWVudHMgb2YgdGhpcyBsaXN0IGFyZSBpbiB0aGUgc2FtZSBvcmRlciBhcyB0aGUgZWxlbWVudHMgb2YgdGhlIGBleGNlbF9maWxlc2AgdmVjdG9yLCBzbyB3ZSBjYW4gZXh0cmFjdCB0aGUgZGF0YSBmb3IgYSBwYXJ0aWN1bGFyIGZpbGUgKHllYXIpIGJ5IHNlbGVjdGluZyBhIGNlcnRhaW4gZWxlbWVudCBvZiB0aGUgbGlzdC4gSG93ZXZlciwgaXQgaXMgc2FmZXIgdG8gYmUgYWJsZSB0byBzZWxlY3QgdGhlIGRhdGEgZnJvbSB0aGlzIGxpc3QgZm9yIGEgc3BlY2lmaWMgeWVhciB1c2luZyBhIG5hbWUgYmFzZWQgb24gdGhlIG9yaWdpbmFsIHZlY3RvciBvZiBmaWxlIG5hbWVzLiBXZSBleHRyYWN0ZWQgYSBuYW1lIGZyb20gZWFjaCBFeGNlbCBmaWxlIG5hbWUgdXNpbmcgdGhlIGBzdHJfZXh0cmFjdCgpYCBmdW5jdGlvbiBvZiB0aGUgYHN0cmluZ3JgIHBhY2thZ2UuIEhlcmUgd2UgYXJlIGtlZXBpbmcgb2NjdXJyZW5jZXMgb2YgdGhlIGNoYXJhY3RlciBzdHJpbmcgIm55dHMyMDEiIGZvbGxvd2VkIGJ5IGEgIjUiLCI2IiwiNyIsIjgiLCBvciAiOSIuCmBgYHtyfQp0YmxfbmFtZXMgPC0gZXhjZWxfZmlsZXMgJT4lCiAgc3RyX2V4dHJhY3QoIm55dHNbMl1bMF1bMV1bNS05XSIpCgp0YmxfbmFtZXMKYGBgCgpUaGVzZSBuYW1lcyBiZWNhbWUgdGhlIG5hbWVzIG9mIHRoZSB0aWJibGVzIGluIHRoZSBsaXN0IG9mIHRpYmJsZXMuCmBgYHtyLCBldmFsID0gRkFMU0V9Cm5hbWVzKHRibF9maWxlcykgPC0gdGJsX25hbWVzCmBgYAoKClNwZWNpZmljIGNvbHVtbnMgd2VyZSBzZWxlY3RlZCB1c2luZyB0aGUgYHNlbGVjdCgpYCBmdW5jdGlvbiBvZiBgZHBseXJgIGZyb20gZWFjaCBvZiB0aGUgdGliYmxlcyB1c2luZyB0aGUgdmFyaWFibGUgbmFtZSwgYXMgaWRlbnRpZmllZCBpbiB0aGUgY29kZWJvb2sgYXMgYmVpbmcgb2YgaW50ZXJlc3QgZm9yIG91ciBhbmFseXNpcy4KSW4gc29tZSBjYXNlcyBmdW5jdGlvbnMgbGlrZSBgc3RhcnRzX3dpdGgoKWAgb2YgdGhlIGBkcGx5cmAgcGFja2FnZSB3ZXJlIHVzZWQgdG8gc2VsZWN0IHNldmVyYWwgdmFyaWFibGVzIGF0IG9uY2UuIE1vc3Qgb2YgdGhlIHN1cnZleSBxdWVzdGlvbnMgYWJvdXQgdG9iYWNjbyB1c2Ugc3RhcnQgd2l0aCBhbiBgIkUiYCBvciBhIGAiQyJgIGFjY29yZGluZyB0byB0aGUgY29kZWJvb2tzLiAKCmBgYHtyLCBldmFsID0gRkFMU0V9Cgp0YmxfZmlsZXNbWyJueXRzMjAxNSJdXSA8LSB0YmxfZmlsZXNbWyJueXRzMjAxNSJdXSAlPiUKICAgIGRwbHlyOjpzZWxlY3QocHN1LCAjUHJpbWFyeSBTYW1wbGluZyBVbml0CiAgICAgICAgICAgICAgICAgIGZpbndndCwjQW5hbHlzaXMgV2VpZ2h0CiAgICAgICAgICAgICAgICAgIHN0cmF0dW0sI1NhbXBsaW5nIHN0cmF0dW0KICAgICAgICAgICAgICAgICAgUW4xLCAjQWdlCiAgICAgICAgICAgICAgICAgIFFuMiwgI1NleAogICAgICAgICAgICAgICAgICBRbjMsICNHcmFkZQogICAgICAgICAgICAgICAgICBzdGFydHNfd2l0aCgiRSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGlnbm9yZS5jYXNlID0gRkFMU0UpLAogICAgICAgICAgICAgICAgICBzdGFydHNfd2l0aCgiQyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGlnbm9yZS5jYXNlID0gRkFMU0UpLAogICAgICAgICAgICAgICAgICApCgoKdGJsX2ZpbGVzW1sibnl0czIwMTYiXV0gPC0gdGJsX2ZpbGVzW1sibnl0czIwMTYiXV0gJT4lCiAgICBkcGx5cjo6c2VsZWN0KHBzdSwKICAgICAgICAgICAgICAgICAgZmlud2d0LAogICAgICAgICAgICAgICAgICBzdHJhdHVtLAogICAgICAgICAgICAgICAgICBRMSwgI0FnZQogICAgICAgICAgICAgICAgICBRMiwgI1NleAogICAgICAgICAgICAgICAgICBRMywgI0dyYWRlCiAgICAgICAgICAgICAgICAgIHN0YXJ0c193aXRoKCJFIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWdub3JlLmNhc2UgPSBGQUxTRSksCiAgICAgICAgICAgICAgICAgIHN0YXJ0c193aXRoKCJDIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWdub3JlLmNhc2UgPSBGQUxTRSksCiAgICAgICAgICAgICAgICAgIFE1MEEsICNNZW50aG9sICMgV2hhdCBmbGF2b3JzIG9mIHRvYmFjY28gcHJvZHVjdHMgaGF2ZSB5b3UgdXNlZCBpbiB0aGUgcGFzdCAzMCBkYXlzPyAoU2VsZWN0IG9uZSBvciBtb3JlKQogICAgICAgICAgICAgICAgICBRNTBCLCAjQ2xvdmUgb3Igc3BpY2UKICAgICAgICAgICAgICAgICAgUTUwQywgI0ZydWl0CiAgICAgICAgICAgICAgICAgIFE1MEQsICNDaG9jb2xhdGUKICAgICAgICAgICAgICAgICAgUTUwRSwgI0FsY29ob2xpYyBEcmluawogICAgICAgICAgICAgICAgICBRNTBGLCAjQ2FuZHkvRGVzc2VydHMvT3RoZXIgU3dlZXRzCiAgICAgICAgICAgICAgICAgIFE1MEcsICNTb21lIE90aGVyIEZsYXZvciBOb3QgTGlzdGVkIEhlcmUKICAgICAgICAgICAgICAgICAgUTUwSCAjSSBEaWQgTm90IFVzZSBGbGF2b3JlZCBUb2JhY2NvIFByb2R1Y3RzIEluIHRoZSBQYXN0CiAgICAgICAgICAgICAgICAgICkgCgp0YmxfZmlsZXNbWyJueXRzMjAxNyJdXSA8LSB0YmxfZmlsZXNbWyJueXRzMjAxNyJdXSAlPiUKICAgIGRwbHlyOjpzZWxlY3QocHN1LAogICAgICAgICAgICAgICAgICBmaW53Z3QsCiAgICAgICAgICAgICAgICAgIHN0cmF0dW0sCiAgICAgICAgICAgICAgICAgIFExLCAjQWdlCiAgICAgICAgICAgICAgICAgIFEyLCAjU2V4CiAgICAgICAgICAgICAgICAgIFEzLCAjR3JhZGUKICAgICAgICAgICAgICAgICAgc3RhcnRzX3dpdGgoIkUiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBpZ25vcmUuY2FzZSA9IEZBTFNFKSwKICAgICAgICAgICAgICAgICAgc3RhcnRzX3dpdGgoIkMiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBpZ25vcmUuY2FzZSA9IEZBTFNFKSwKICAgICAgICAgICAgICAgICAgUTUwQSwgI01lbnRob2wgIyBXaGF0IGZsYXZvcnMgb2YgdG9iYWNjbyBwcm9kdWN0cyBoYXZlIHlvdSB1c2VkIGluIHRoZSBwYXN0IDMwIGRheXM/IChTZWxlY3Qgb25lIG9yIG1vcmUpCiAgICAgICAgICAgICAgICAgIFE1MEIsICNDbG92ZSBvciBzcGljZQogICAgICAgICAgICAgICAgICBRNTBDLCAjRnJ1aXQKICAgICAgICAgICAgICAgICAgUTUwRCwgI0Nob2NvbGF0ZQogICAgICAgICAgICAgICAgICBRNTBFLCAjQWxjb2hvbGljIERyaW5rCiAgICAgICAgICAgICAgICAgIFE1MEYsICNDYW5keS9EZXNzZXJ0cy9PdGhlciBTd2VldHMKICAgICAgICAgICAgICAgICAgUTUwRywgI1NvbWUgT3RoZXIgRmxhdm9yIE5vdCBMaXN0ZWQgSGVyZQogICAgICAgICAgICAgICAgICBRNTBIICNJIERpZCBOb3QgVXNlIEZsYXZvcmVkIFRvYmFjY28gUHJvZHVjdHMgSW4gdGhlIFBhc3QKICAgICAgICAgICAgICAgICAgKQoKdGJsX2ZpbGVzW1sibnl0czIwMTgiXV0gPC0gdGJsX2ZpbGVzW1sibnl0czIwMTgiXV0gJT4lCiAgICBkcGx5cjo6c2VsZWN0KHBzdSwKICAgICAgICAgICAgICAgICAgZmlud2d0LAogICAgICAgICAgICAgICAgICBzdHJhdHVtLAogICAgICAgICAgICAgICAgICBRMSwgI0FnZQogICAgICAgICAgICAgICAgICBRMiwgI1NleAogICAgICAgICAgICAgICAgICBRMywgI0dyYWRlCiAgICAgICAgICAgICAgICAgIHN0YXJ0c193aXRoKCJFIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWdub3JlLmNhc2UgPSBGQUxTRSksCiAgICAgICAgICAgICAgICAgIHN0YXJ0c193aXRoKCJDIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWdub3JlLmNhc2UgPSBGQUxTRSksCiAgICAgICAgICAgICAgICAgIFE1MEEsICNNZW50aG9sICMgV2hhdCBmbGF2b3JzIG9mIHRvYmFjY28gcHJvZHVjdHMgaGF2ZSB5b3UgdXNlZCBpbiB0aGUgcGFzdCAzMCBkYXlzPyAoU2VsZWN0IG9uZSBvciBtb3JlKQogICAgICAgICAgICAgICAgICBRNTBCLCAjQ2xvdmUgb3Igc3BpY2UKICAgICAgICAgICAgICAgICAgUTUwQywgI0ZydWl0CiAgICAgICAgICAgICAgICAgIFE1MEQsICNDaG9jb2xhdGUKICAgICAgICAgICAgICAgICAgUTUwRSwgI0FsY29ob2xpYyBEcmluawogICAgICAgICAgICAgICAgICBRNTBGLCAjQ2FuZHkvRGVzc2VydHMvT3RoZXIgU3dlZXRzCiAgICAgICAgICAgICAgICAgIFE1MEcsICNTb21lIE90aGVyIEZsYXZvciBOb3QgTGlzdGVkIEhlcmUKICAgICAgICAgICAgICAgICAgUTUwSCAjSSBEaWQgTm90IFVzZSBGbGF2b3JlZCBUb2JhY2NvIFByb2R1Y3RzIEluIHRoZSBQYXN0CiAgICAgICAgICAgICAgICAgICkKCnRibF9maWxlc1tbIm55dHMyMDE5Il1dIDwtIHRibF9maWxlc1tbIm55dHMyMDE5Il1dICU+JQogICAgZHBseXI6OnNlbGVjdChwc3UsCiAgICAgICAgICAgICAgICAgIGZpbndndCwKICAgICAgICAgICAgICAgICAgc3RyYXR1bSwKICAgICAgICAgICAgICAgICAgUTEsICNBZ2UKICAgICAgICAgICAgICAgICAgUTIsICNTZXgKICAgICAgICAgICAgICAgICAgUTMsICNHcmFkZQogICAgICAgICAgICAgICAgICBzdGFydHNfd2l0aCgiRSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGlnbm9yZS5jYXNlID0gRkFMU0UpLAogICAgICAgICAgICAgICAgICBzdGFydHNfd2l0aCgiQyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGlnbm9yZS5jYXNlID0gRkFMU0UpLAogICAgICAgICAgICAgICAgICBRNDAsICNCcmFuZCwgZS1jaWdhcmV0dGVzCiAgICAgICAgICAgICAgICAgIFE2MkEsICNNZW50aG9sICMgV2hhdCBmbGF2b3JzIG9mIHRvYmFjY28gcHJvZHVjdHMgaGF2ZSB5b3UgdXNlZCBpbiB0aGUgcGFzdCAzMCBkYXlzPyAoU2VsZWN0IG9uZSBvciBtb3JlKQogICAgICAgICAgICAgICAgICBRNjJCLCAjQ2xvdmUgb3Igc3BpY2UKICAgICAgICAgICAgICAgICAgUTYyQywgI0ZydWl0IAogICAgICAgICAgICAgICAgICBRNjJELCAjQ2hvY29sYXRlCiAgICAgICAgICAgICAgICAgIFE2MkUsICNBbGNvaG9saWMgRHJpbmsKICAgICAgICAgICAgICAgICAgUTYyRiwgI0NhbmR5L0Rlc3NlcnRzL090aGVyIFN3ZWV0cwogICAgICAgICAgICAgICAgICBRNjJHLCAjU29tZSBPdGhlciBGbGF2b3IgTm90IExpc3RlZCBIZXJlIAogICAgICAgICAgICAgICAgICApCgpgYGAKCkEgZGlyZWN0b3J5IGNhbGxlZCBgZGF0YV9yZWR1Y2VkYCB3YXMgY3JlYXRlZCBmb3IgdGhlIG5ldyAuY3N2IGZpbGVzIHVzaW5nIHRoZSBiYXNlIGBkaXIuY3JlYXRlKClgIGZ1bmN0aW9uLiAKQSBjc3YgZmlsZSB3YXMgY3JlYXRlZCBmb3IgZWFjaCBvZiB0aGUgdGliYmxlcyBpbiB0aGUgbGlzdCB1c2luZyB0aGUgYHdyaXRlX2NzdigpYCBmdW5jdGlvbiBvZiB0aGUgYHJlYWRyYCBwYWNrYWdlLgpUaGlzIHdhcyBkb25lIGFsbCBhdCBvbmNlIHVzaW5nIHRoZSBiYXNlIGBtYXBwbHkoKWAgZnVuY3Rpb24uCgpgYGB7ciwgZXZhbCA9IEZBTFNFfQojIApkaXIuY3JlYXRlKCJkb2NzL2RhdGFfcmVkdWNlZCIpCgptYXBwbHkod3JpdGVfY3N2LCB0YmxfZmlsZXMsIHBhdGg9aGVyZShwYXN0ZTAoImRvY3MvZGF0YV9yZWR1Y2VkLyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBuYW1lcyh0YmxfZmlsZXMpLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICcuY3N2JykpCiAgICAgKQoKI3RyeWluZyB0byB1c2UgbWFwLi4uCnRibF9maWxlcyAlPiUKbWFwKH53cml0ZV9jc3YoLiAsIHBhdGg9cGFzdGUwKCJkb2NzL2RhdGFfcmVkdWNlZDIvbnl0cyIsIHB1bGwoeWVhcilbWzFdXSwgIi5jc3YiKSkpCgoKICAgIHRibF9maWxlcyAlPiUKbWFwKH53cml0ZV9jc3YoLiAsIHBhdGg9cGFzdGUwKCJkb2NzL2RhdGFfcmVkdWNlZDIvbnl0cyIsIG5hbWVzKC4pLCAiLmNzdiIpKSkKCiAgIApgYGAKCjwvZGV0YWlscz4KCgoKTm93IHdlIHdpbGwgc2hvdyBob3cgdG8gcmVhZCBpbiB0aGUgZGF0YSBmcm9tIHRoZSBmaXZlIGNzdiBmaWxlcyB0aGF0IHdlcmUgY3JlYXRlZCBmcm9tIHRoZSBmaXZlIGRpZmZlcmVudCBFeGNlbCBmaWxlcy4KCiMjIyBSZWFkaW5nIGluIHRoZSBDU1YgZmlsZXMKKioqCgpgYGB7ciwgZWNobz1GQUxTRSwgaW5jbHVkZT1GQUxTRX0Kc3RhcnRfdGltZSA8LSBTeXMudGltZSgpCgplbmRfdGltZSA8LSBTeXMudGltZSgpCgp0ZXN0X3RpbWUgPC0gZW5kX3RpbWUgLSBzdGFydF90aW1lCgp0aW1lX21lc3NhZ2UgPC0gcGFzdGUoIkR1cmF0aW9uIG9mIGRhdGEgaW1wb3J0OiIsCiAgICAgIHJvdW5kKGFzLm51bWVyaWModGVzdF90aW1lKSAsMyksCiAgICAgIHVuaXRzKHRlc3RfdGltZSkKICAgICAgKQpgYGAKCgpgYGB7cn0Kbnl0c19kYXRhIDwtIGxpc3QuZmlsZXMoaGVyZTo6aGVyZSgpLHJlY3Vyc2l2ZSA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICBwYXR0ZXJuID0gIiouY3N2IiklPiUKICBtYXAofnJlYWRfY3N2KC4pKQoKCm55dHNfZGF0YV9uYW1lcyA8LSBsaXN0LmZpbGVzKHJlY3Vyc2l2ZSA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICBwYXR0ZXJuID0gIiouY3N2IiklPiUKICBzdHJfZXh0cmFjdCgibnl0c1syXVswXVsxXVs1LTldIikKCm5hbWVzKG55dHNfZGF0YSkgPC0gbnl0c19kYXRhX25hbWVzCmBgYAoKCiMjICoqRGF0YSBFeHBsb3JhdGlvbiBhbmQgV3JhbmdsaW5nKioKKioqIAoKT3VyIGdvYWwgaW4gdGhpcyBzZWN0aW9uIGlzIHRvIGFkanVzdCBvciAid3JhbmdsZSIgdGhlIGRhdGEgZnJvbSBlYWNoIHllYXIgaW50byBhIGNvbW1vbiBmb3JtYXQgc28gdGhhdCB3ZSBjYW4gY29tYmluZSB0aGUgZGF0YSBzZXRzIGFjcm9zcyB5ZWFycyBmb3Igb3VyIGFuYWx5c2lzLCBhbmQgc28gdGhhdCB3ZSBoYXZlIHZhbHVlcyBpbiBvdXIgdmFyaWFibGVzIHRoYXQgYXJlIGNvcnJlY3QgYW5kIGVhc3kgdG8gaW50ZXJwcmV0LiBXZSB3aWxsIG5lZWQgdG8gdW5kZXJzdGFuZCB3aGF0IGlzIHRoZSBzYW1lIGFuZCB3aGF0IGlzIGRpZmZlcmVudCBhY3Jvc3MgdGhlIGRhdGEgZnJvbSBkaWZmZXJlbnQgeWVhcnMsIHJlbmFtZSBhbmQgcmVjb2RlIHRoZSB2YXJpYWJsZXMgKGUuZy4sIGJ5IHJlcGxhY2luZyB0aGUgbnVtYmVycyAxIGFuZCAyIHdpdGggdGhlIHZhbHVlcyAiTWFsZSIgYW5kICJGZW1hbGUiIGZvciB0aGUgYFNleGAgdmFyaWFibGUpLCBhbmQgY29tYmluZSB0aGUgZGF0YS4gV2Ugd2lsbCB3YWxrIHRocm91Z2ggdGhlc2Ugc3RlcHMgYmVsb3cuIAoKRmlyc3QsIGxldCdzIHRha2UgYSBsb29rIGF0IG91ciBkYXRhLiBXZSBjYW4gZ2V0IGEgZ29vZCBzZW5zZSBvZiBpdCB1c2luZyB0aGUgYGdsaW1wc2UoKWAgZnVuY3Rpb24gb2YgdGhlIGBkcGx5cmAgcGFja2FnZS4KCiMjIyMgey5zY3JvbGxhYmxlIH0KCmBgYHtyfQpkcGx5cjo6Z2xpbXBzZShueXRzX2RhdGFbWyJueXRzMjAxNSJdXSkKYGBgCiMjIyMKCiMjIyBVcGRhdGluZyB0aGUgc2V0IG9mIHZhcmlhYmxlcyBhbmQgdGhlaXIgbmFtZXMKKioqIAoKVGhlIGVhc2llc3Qgd2F5IG9mIG1ha2luZyBpdCBzbyB0aGF0IHRoZSBkYXRhIGZyb20gdGhlIGRpZmZlcmVudCB5ZWFycyBjYW4gYmUgY29tYmluZWQgaXMgYnkgbWFraW5nIHN1cmUgdGhlIGRpZmZlcmVudCBkYXRhIHNldHMgYWxsIGNvbnRhaW4gdGhlIHNhbWUgdmFyaWFibGVzIHRoYXQgc2hhcmUgdGhlIHNhbWUgbmFtZXMuIEluIGFkZGl0aW9uLCBnaXZpbmcgdGhlIGNvbHVtbnMgaW5mb3JtYXRpdmUgbmFtZXMgd2lsbCBoZWxwIG1ha2Ugb3VyIGNvZGUgbW9yZSByZWFkYWJsZS4gQ3VycmVudGx5LCBpdCBpc24ndCB2ZXJ5IGNsZWFyIHdoYXQgbW9zdCBvZiB0aGUgdmFyaWFibGVzIGluZGljYXRlIHNpbmNlIHRoZSB2YXJpYWJsZSBuYW1lcyBhcmUgdW5pbmZvcm1hdGl2ZSBvbiB0aGVpciBvd24sIHdpdGhvdXQgdGhlIGNvZGUgYm9vay4KCldlIHdhbnQgdG8gcmVuYW1lIHZhcmlhYmxlcyBsaWtlIGBRbjFgIHRvIHNvbWV0aGluZyBtb3JlIG1lYW5pbmdmdWwgbGlrZSBgQWdlYC4KClRvIGRvIHRoaXMgd2Ugd2lsbCB1c2UgdGhlIGByZW5hbWUoKWAgZnVuY3Rpb24gb2YgdGhlIGBkcGx5cmAgcGFja2FnZS4gVGhlIG5ldyBuYW1lIGlzIGFsd2F5cyBsaXN0ZWQgZmlyc3QgYmVmb3JlIHRoZSBgPWAuIFRoaXMgZnVuY3Rpb24gd2lsbCByZXBsYWNlIHRoZSBvbGQgdmFyaWFibGUgbmFtZXMgd2l0aCB0aGUgbmV3IG9uZXMsIGkuZS4sIGFmdGVyIHJ1bm5pbmcgdGhlIGNvZGUgYmVsb3csIHRoZXJlIHdpbGwgbm8gbG9uZ2VyIGJlIGEgYFFuMWAgdmFyaWFibGUgaW4gdGhlIGRhdGEgc2V0LCBidXQgdGhlcmUgd2lsbCBiZSBhbiBgQWdlYCB2YXJpYWJsZSBpbnN0ZWFkLiBXZSB3aWxsIHN0YXJ0IHdvcmtpbmcgd2l0aCB0aGUgMjAxNSBkYXRhLCBhbmQgdGhlbiBtb3ZlIG9uIHRvIHRoZSBvdGhlciB5ZWFycyBkb3duIGJlbG93LgoKYGBge3J9CgpueXRzX2RhdGFbWyJueXRzMjAxNSJdXSA8LSBueXRzX2RhdGFbWyJueXRzMjAxNSJdXSAlPiUKICAgIGRwbHlyOjpyZW5hbWUoQWdlPVFuMSwKICAgICAgICAgICBTZXg9UW4yLAogICAgICAgICAgIEdyYWRlPVFuMykKYGBgCgoKV2UgYWxzbyBuZWVkIHRvIGFkZCBuZXcgdmFyaWFibGVzIGFib3V0IHVzYWdlIG9mIGJyYW5kcyBhbmQgc3BlY2lmaWMgZmxhdm9ycyBvZiBlLWNpZ2FyZXR0ZXMsIGJlY2F1c2UgYWx0aG91Z2ggbGF0ZXIgeWVhcnMgaGF2ZSBxdWVzdGlvbnMgYWJvdXQgdGhpcywgdGhpcyB5ZWFyIHVuZm9ydHVuYXRlbHkgb25seSBoYXMgYnJvYWQgcXVlc3Rpb25zIGFib3V0IGZsYXZvcnMuIEV2ZW50dWFsbHkgd2Ugd2FudCB0byBwdXQgdGhlIGRhdGEgZnJvbSBlYWNoIHllYXIgdG9nZXRoZXIsIHNvIHdlIG5lZWQgdGhlIHNhbWUgdmFyaWFibGVzIGZvciBlYWNoIHllYXIuIFRodXMgd2UgbmVlZCB0byBhZGQgdmFyaWFibGVzIGZvciBicmFuZCBhbmQgZmxhdm9yIHRvIHRoZSAyMDE1IGRhdGEgc2V0IHRoYXQganVzdCBjb250YWluIG1pc3NpbmcgdmFsdWVzIChgTkFgKS4KClRvIGNyZWF0ZSB0aGVzZSBuZXcgdmFyaWFibGVzLCB3ZSB3aWxsIHVzZSB0aGUgYG11dGF0ZWAgZnVuY3Rpb24gb2YgdGhlIGBkcGx5cmAgcGFja2FnZS4gVGhlIGBtdXRhdGVgIGZ1bmN0aW9uIGNhbiBhbHNvIGJlIHVzZWQgdG8gY2hhbmdlIHRoZSBleGlzdGluZyB2YXJpYWJsZXMgYW5kIGNyZWF0ZSBuZXcgdmFyaWFibGVzIGZyb20gdGhlIG9sZCBvbmVzLgoKYGBge3J9Cm55dHNfZGF0YVtbIm55dHMyMDE1Il1dIDwtIG55dHNfZGF0YVtbIm55dHMyMDE1Il1dICU+JQogIGRwbHlyOjptdXRhdGUoCiAgICAgICAgICAgYnJhbmRfZWNpZz1OQSwKICAgICAgICAgICBtZW50aG9sPU5BLAogICAgICAgICAgIGNsb3ZlX3NwaWNlPU5BLAogICAgICAgICAgIGZydWl0PU5BLAogICAgICAgICAgIGNob2NvbGF0ZT1OQSwKICAgICAgICAgICBhbGNvaG9saWNfZHJpbms9TkEsCiAgICAgICAgICAgY2FuZHlfZGVzc2VydF9zd2VldHM9TkEsCiAgICAgICAgICAgb3RoZXI9TkEsCiAgICAgICAgICAgbm9fdXNlPU5BKSAKYGBgCgoKTm93IHdlIGNhbiBzZWUgaG93IHRoZSBkYXRhIGhhcyBjaGFuZ2VkOgoKIyMjIyB7LnNjcm9sbGFibGUgfQpgYGB7cn0KZ2xpbXBzZShueXRzX2RhdGFbWyJueXRzMjAxNSJdXSkKYGBgCiMjIyMKCgpUaGUgZGF0YSBmb3IgMjAxNi0yMDE4IGhhdmUgbWFueSBjb21tb24gYXR0cmlidXRlcywgc28gd2Ugd2lsbCB3YW50IHRvIHdyaXRlIGNvZGUgdGhhdCBjYW4gYmUgYXBwbGllZCB0byBhbGwgdGhyZWUgZGF0YSBzZXRzLiBUbyBkbyB0aGlzLCB3ZSB3aWxsIHVzZSBhIGBmdW5jdGlvbmAgaW4gUiwgd2hpY2ggaXMgYmFzaWNhbGx5IGEgcGllY2Ugb2YgY29kZSB0aGF0IGNhbiBiZSBhcHBsaWVkIHRvIHNpbWlsYXIgYnV0IGRpZmZlcmVudCBvYmplY3RzIGluIFIgKGUuZy4sIHRoZSBkYXRhIHRpYmJsZXMgZnJvbSBlYWNoIG9mIHRoZXNlIHRocmVlIHllYXJzKS4gRm9yIG1vcmUgaW5mb3JtYXRpb24gb24gZnVuY3Rpb25zLCBzZWUgZm9yIGV4YW1wbGUgW2hlcmVdKGh0dHBzOi8vcjRkcy5oYWQuY28ubnovZnVuY3Rpb25zLmh0bWwpe3RhcmdldD0iX2JsYW5rIn0uCgpUaGVzZSBuZXh0IDMgeWVhcnMgaGF2ZSB0aGUgc2FtZSBzdHJ1Y3R1cmUgZm9yIG1hbnkgb2YgdGhlIHF1ZXN0aW9ucyB3ZSBhcmUgaW50ZXJlc3RlZCBpbi4gRm9yIGV4YW1wbGUsIHRoZXkgYWxsIGhhdmUgZmxhdm9yIHF1ZXN0aW9ucywgYnV0IG5vdCBhIGJyYW5kIHF1ZXN0aW9uLiBNb3Jlb3ZlciwgdGhlaXIgdmFyaWFibGUgbmFtZXMgYXJlIGNvbnNpc3RlbnQgYWNyb3NzIHRoZSB5ZWFyczsgZm9yIGVhY2ggeWVhciwgd2Ugd2FudCB0byByZXBsYWNlIHRoZSB2YWd1ZSBxdWVzdGlvbiBuYW1lIGBRNTBBYCB3aXRoIHRoZSB2YWx1ZSBgbWVudGhvbGAgaW4gYWxsIHRocmVlIGRhdGEgc2V0cywgYW5kIHRoZSBzYW1lIGlzIHRydWUgZm9yIHRoZSBvdGhlciBmbGF2b3IgdmFyaWFibGVzLiAgRm9yIGVhY2ggb2YgdGhlc2UgeWVhcnMsIHdlIGFsc28gd2FudCB0byBjcmVhdGUgYSB2YXJpYWJsZSBgYnJhbmRfZWNpZ2AgdGhhdCBqdXN0IGNvbnRhaW5zIGBOQWAgdmFsdWVzLiAgCgpTaW5jZSB3ZSB3YW50IHRvIHBlcmZvcm0gdGhlIHNhbWUgbW9kaWZpY2F0aW9ucyBvbiB0aGUgZGF0YSBmcm9tIGFsbCB0aHJlZSB5ZWFycywgcmF0aGVyIHRoYW4gcmVwZWF0aW5nIHRoZSBzYW1lIHNvbWV3aGF0IG1lc3N5IHBpZWNlIG9mIGNvZGUgdGhyZWUgdGltZXMsIHdlIGNhbiBkbyB0aGlzIG1vcmUgZWZmaWNpZW50bHkgaWYgd2UgY3JlYXRlIGEgZnVuY3Rpb24gdG8gZG8gYWxsIG9mIHRoZXNlIHN0ZXBzIGF0IG9uY2UuIFRoZW4gd2UgY2FuIHVzZSB0aGUgYG1hcF9hdCgpYCBmdW5jdGlvbiBvZiB0aGUgYHB1cnJyYCBwYWNrYWdlIHRvIGFwcGx5IHRoZSBmdW5jdGlvbiB3ZSBjcmVhdGVkIChmb3IgcmVuYW1pbmcgdmFyaWFibGVzIGV0Yy4pIHRvIHRoZSBkYXRhIGZyb20gMjAxNi0yMDE4LiBCeSB1c2luZyBgdmFycygpYCBpbnNpZGUgb2YgdGhlIGBtYXBfYXQoKWAgZnVuY3Rpb24gd2UgY2FuIHNwZWNpZnkgd2hhdCB0aWJibGVzIHdpdGhpbiBvdXIgYG55dHNfZGF0YWAgbGlzdCB3ZSB3YW50IHRvIGluY2x1ZGUgb3IgZXhjbHVkZS4KCmBgYHtyfQoKVXBkYXRlX3N1cnZleSA8LSBmdW5jdGlvbih4KSB7IHggJT4lCiAgICAgIHJlbmFtZShBZ2U9UTEsCiAgICAgICAgICAgU2V4PVEyLAogICAgICAgICAgIEdyYWRlPVEzLAogICAgICAgICAgIG1lbnRob2w9UTUwQSwKICAgICAgICAgICBjbG92ZV9zcGljZT1RNTBCLAogICAgICAgICAgIGZydWl0PVE1MEMsCiAgICAgICAgICAgY2hvY29sYXRlPVE1MEQsCiAgICAgICAgICAgYWxjb2hvbGljX2RyaW5rPVE1MEUsCiAgICAgICAgICAgY2FuZHlfZGVzc2VydF9zd2VldHM9UTUwRiwKICAgICAgICAgICBvdGhlcj1RNTBHLAogICAgICAgICAgIG5vX3VzZT1RNTBIKSAlPiUKICAgIG11dGF0ZShicmFuZF9lY2lnPU5BKQp9CgojZmV3IG9wdGlvbnMgdG8gYXBwbHkgdG8gdGhlIGRhdGE6CiNueXRzX2RhdGEgPC1ueXRzX2RhdGEgJT4lIG1hcF9hdCh2YXJzKG55dHMyMDE2LCBueXRzMjAxNywgbnl0czIwMTgpLCBVcGRhdGVfc3VydmV5KQojbnl0c19kYXRhIDwtbnl0c19kYXRhICU+JSBtYXBfYXQoYygibnl0czIwMTYiLCAibnl0czIwMTciLCAibnl0czIwMTgiKSwgVXBkYXRlX3N1cnZleSkKbnl0c19kYXRhIDwtbnl0c19kYXRhICU+JSBtYXBfYXQodmFycygtbnl0czIwMTUsIC1ueXRzMjAxOSksIFVwZGF0ZV9zdXJ2ZXkpCmBgYAoKVGhlIGZpbmFsIHllYXIsIDIwMTksIGhhcyBhIHNsaWdodGx5IGRpZmZlcmVudCBkYXRhIHN0cnVjdHVyZSBjb21wYXJlZCB0byB0aGVzZSBlYXJsaWVyIGRhdGEgc2V0cy4gRm9yIGV4YW1wbGUsIGl0IGFjdHVhbGx5IGhhcyBhIGBicmFuZF9lY2lnYCB2YXJpYWJsZSBhbHJlYWR5LCBidXQgZG9lcyBub3QgY29udGFpbiBhIGBub191c2VgIHZhcmlhYmxlLiBTbyB3ZSBjYW4ndCB1c2UgdGhlIHNhbWUgZnVuY3Rpb24gZm9yIHRoaXMgZGF0YSBzZXQsIGJ1dCBoYXZlIHRvIHdyaXRlIGFuIGluZGl2aWR1YWwgY29kZSBjaHVuay4KCmBgYHtyfQpueXRzX2RhdGFbWyJueXRzMjAxOSJdXSA8LSBueXRzX2RhdGFbWyJueXRzMjAxOSJdXSAlPiUKICAgIHJlbmFtZShicmFuZF9lY2lnPVE0MCwKICAgICAgICAgICBBZ2U9UTEsCiAgICAgICAgICAgU2V4PVEyLAogICAgICAgICAgIEdyYWRlPVEzLAogICAgICAgICAgIG1lbnRob2w9UTYyQSwKICAgICAgICAgICBjbG92ZV9zcGljZT1RNjJCLAogICAgICAgICAgIGZydWl0PVE2MkMsCiAgICAgICAgICAgY2hvY29sYXRlPVE2MkQsCiAgICAgICAgICAgYWxjb2hvbGljX2RyaW5rPVE2MkUsCiAgICAgICAgICAgY2FuZHlfZGVzc2VydF9zd2VldHM9UTYyRiwKICAgICAgICAgICBvdGhlcj1RNjJHKSAlPiUKICAgIG11dGF0ZShub191c2U9Im1pc3NpbmciKQpgYGAKCgpOb3cgbGV0J3MgdGFrZSBhIGxvb2sgYXQgdGhlIHZhcmlhYmxlIG5hbWVzIGZvciBlYWNoIG9mIHRoZSB5ZWFycyB1c2luZyB0aGUgYG1hcGAgZnVuY3Rpb24gZnJvbSBgcHVycnJgLgoKIyMjIyB7LnNjcm9sbGFibGUgfQoKYGBge3J9Cm1hcChueXRzX2RhdGEsIG5hbWVzKQpgYGAKIyMjIwoKSXQncyBsb29raW5nIGJldHRlciEgVGhlcmUgYXJlIHN0aWxsIHNvbWUgZGlmZmVyZW5jZXMgaW4gdGhlIHNldCBvZiB2YXJpYWJsZXMgaW4gdGhlIGRpZmZlcmVudCB5ZWFycywgYnV0IHRoaW5ncyBhcmUgbXVjaCBjbG9zZXIuCgojIyMgVXBkYXRpbmcgVmFsdWVzCgpOb3cgdGhhdCB3ZSBoYXZlIG1hZGUgc29tZSBwcm9ncmVzcyBvbiB0aGUgc2VsZWN0aW9uIGFuZCBuYW1lcyBvZiB0aGUgdmFyaWFibGVzIHRoZW1zZWx2ZXMsIHdlIHdpbGwgd29yayBvbiB0aGUgdmFsdWVzIGNvbnRhaW5lZCBpbiB0aGUgZGlmZmVyZW50IHZhcmlhYmxlcy4KCldlIGNhbiBzdGFydCB3aXRoIHVwZGF0aW5nIHRoZSB2YWx1ZXMgZm9yIGBBZ2VgIGFuZCBgR3JhZGVgLCBzbyB0aGF0IHRoZXkgYXJlIG1vcmUgdW5kZXJzdGFuZGFibGUuIAoKUmVjYWxsIGZyb20gdGhlIGNvZGVib29rIGZvciB0aGlzIHllYXIncyBkYXRhIHNldCB0aGF0IGBBZ2VgIGlzbid0IGxpc3RlZCBpbiB0aGUgd2F5IG9uZSBtaWdodCBleHBlY3QsIGkuZS4sIGl0IGlzIG5vdCBqdXN0IGEgbnVtYmVyIG9mIHllYXJzLCBidXQgYSBudW1lcmljYWxseSB2YWx1ZWQgY2F0ZWdvcmljYWwgdmFyaWFibGUuCgpgYGB7ciwgZWNobyA9IEZBTFNFLCBmaWcuYWxpZ24gPSJjZW50ZXIiLCBvdXQud2lkdGggPSAiNjAwIHB4In0KCmtuaXRyOjppbmNsdWRlX2dyYXBoaWNzKGhlcmU6OmhlcmUoImltZyIsICJxbjEucG5nIikpCmBgYAoKVGhlIHNhbWUgaXMgdHJ1ZSBmb3IgYEdyYWRlYDoKCmBgYHtyLCBlY2hvID0gRkFMU0UsIGZpZy5hbGlnbiA9ImNlbnRlciIsIG91dC53aWR0aCA9ICI2MDAgcHgifQoKa25pdHI6OmluY2x1ZGVfZ3JhcGhpY3MoaGVyZTo6aGVyZSgiaW1nIiwgImdyYWRlLnBuZyIpKQpgYGAKCioqVGhpcyBpcyB3aHkgaXQgaXMgc28gaW1wb3J0YW50IHRvIGFsd2F5cyBjaGVjayB0aGUgY29kZWJvb2shISoqCgpXZSBhbHNvICB3YW50IHRvIHJlcGxhY2UgdGhlIHZhbHVlIG9mIGAxOWAgZm9yIGBBZ2VgIHRvIGJlIGAiPjE4ImAgYW5kIHRoZSB2YWx1ZSBvZiBgMTNgIGZvciBgR3JhZGVgIHRvIGJlIHJlcGxhY2VkIHdpdGggYCJVbmdyYWRlZC9PdGhlciJgIEFsc28gYWNjb3JkaW5nIHRvIHRoZSBjb2RlYm9va3MsIG51bWVyaWMgdmFsdWVzIG9mIGAxYCBpbmRpY2F0ZSBhIHN1cnZleSBhbnN3ZXIgb2YgYEZBTFNFYCwgd2hpbGUgYSB2YWx1ZSBvZiBgMmAgaW5kaWNhdGVzIGBUUlVFYC4gYFNleGAgbmVlZHMgdG8gYmUgcmVjb2RlZCwgYnV0IGl0IGlzIGEgYml0IHVuY2xlYXIgaWYgaXQgaXMgZW5jb2RlZCBzbGlnaHRseSBkaWZmZXJlbnRseSBhY3Jvc3MgeWVhcnMuCgoKTGV0J3MgY3JlYXRlIGEgZnVuY3Rpb24gdG8gbWFrZSBhbGwgdGhlc2UgdXBkYXRlcyBleGNlcHQgZm9yIGBTZXhgLiBXZSB3aWxsIHVzZSB0aGUgYG11dGF0ZWAgZnVuY3Rpb24gYWdhaW4sIGFzIHdlbGwgYXMgYG11dGF0ZV9hbGxgIGFuZCBgcmVjb2RlYCB0byByZXBsYWNlIHNwZWNpZmljIHZhbHVlcyBvZiBjZXJ0YWluIHZhcmlhYmxlcy4KCmBgYHtyfQpVcGRhdGVfdmFsdWVzIDwtIGZ1bmN0aW9uKHgpIHsgeCAlPiUKICAgICAgbXV0YXRlKEFnZT1hcy5udW1lcmljKEFnZSkrOCwKICAgICAgICAgICAgIEdyYWRlPWFzLm51bWVyaWMoR3JhZGUpKzUpJT4lCiAgICAgIG11dGF0ZShBZ2U9YXMuZmFjdG9yKEFnZSksCiAgICAgICAgIEdyYWRlPWFzLmZhY3RvcihHcmFkZSksCiAgICAgICAgICkgJT4lCiAgbXV0YXRlX2FsbCh+IHJlcGxhY2UoLiwgLiAlaW4lIGMoIioiLCAiKioiKSwgTkEpKSU+JQogIG11dGF0ZShBZ2U9cmVjb2RlKEFnZSwKICAgICAgICAgICAgICAgICAgICBgMTlgID0gIj4xOCIsCiAgICAgICAgICAgICAgICAgICAgKSwKICAgICAgICAgR3JhZGU9cmVjb2RlKEdyYWRlLAogICAgICAgICAgICAgICAgICAgICAgYDEzYCA9ICJVbmdyYWRlZC9PdGhlciIpKSAlPiUKICBtdXRhdGVfYXQodmFycyhzdGFydHNfd2l0aCgiRSIsIGlnbm9yZS5jYXNlID0gRkFMU0UpLAogICAgICAgICAgICAgICAgICAgc3RhcnRzX3dpdGgoIkMiLCBpZ25vcmUuY2FzZSA9IEZBTFNFKSksCiAgICAgICAgICAgICAgbGlzdCh+cmVjb2RlKC4sCiAgICAgICAgICAgICAgICAgICAgICAgICAgIGAxYCA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIGAyYCA9IEZBTFNFLAogICAgICAgICAgICAgICAgICAgICAgICAgICAuZGVmYXVsdCA9IE5BLAogICAgICAgICAgICAgICAgICAgICAgICAgICAubWlzc2luZyA9IE5BKSkpCn0KCm55dHNfZGF0YSA8LW55dHNfZGF0YSAlPiUgbWFwKC4sVXBkYXRlX3ZhbHVlcykKCmBgYAoKCk5vdyBsZXQncyB1cGRhdGUgdGhlIGBTZXhgIGVuY29kaW5nOgoKSXQncyBhIGJpdCBkaWZmaWN1bHQgdG8gdGVsbCBpZiB0aGUgZW5jb2Rpbmcgd2FzIHRoZSBzYW1lIGFjcm9zcyB5ZWFycywgc28gbGV0J3MgY2hlY2sgdXNpbmcgdGhlIGBjb3VudCgpYCBmdW5jdGlvbiBvZiB0aGUgYGRwbHlyYCBwYWNrYWdlLgoKQWNjb3JkaW5nIHRvIHRoZSBjb2RlYm9vaywgd2Ugc2hvdWxkIGhhdmU6ICAKMSkgOCw5NTggbWFsZXMgaW4gMjAxNSAKMikgMTAsNDM4IG1hbGVzIGluIDIwMTYgCjMpIDgsODgxIG1hbGVzIGluIDIwMTcgIAo0KSAxMCwwNjkgbWFsZXMgaW4gMjAxOCAgCjUpIDksODAzIG1hbGVzIGluIDIwMTkgIAoKYGBge3J9CmNvdW50X3NleCA8LWZ1bmN0aW9uKHgpe3ggJT4lY291bnQoU2V4KX0Kbnl0c19kYXRhICU+JSBtYXAoLiwgY291bnRfc2V4KQpgYGAKCgpUaHVzLCBpdCBsb29rcyBsaWtlIG1hbGVzIHdlcmUgZW5jb2RlZCBhcyBgMWAgZm9yIGVhY2ggeWVhci4KCjEpIDgsOTU4IG1hbGVzIGluIDIwMTUgd2hlcmUgMSA9IG1hbGUgIAoyKSAxMCw0MzggbWFsZXMgaW4gMjAxNiB3aGVyZSAxID0gbWFsZQozKSA4LDg4MSBtYWxlcyBpbiAyMDE3IHdoZXJlIDEgPSBtYWxlICAKNCkgMTAsMDY5IG1hbGVzIGluIDIwMTggd2hlcmUgMSA9IG1hbGUKNSkgOSw4MDMgbWFsZXMgaW4gMjAxOSB3aGVyZSAxID0gbWFsZQoKCmBgYHtyfQoKICBVcGRhdGVfc2V4IDwtIGZ1bmN0aW9uKHgpe3ggJT4lCiAgICAgIG11dGF0ZShTZXggPSBhcy5mYWN0b3IoU2V4KSkgJT4lCiAgICAgICAgIG11dGF0ZShTZXggPSByZWNvZGUoU2V4LAogICAgICAgICAgICAgICAgICAgICAgYDFgPSAibWFsZSIsCiAgICAgICAgICAgICAgICAgICAgICBgMmAgPSAiZmVtYWxlIikpCiAgfQoKbnl0c19kYXRhIDwtbnl0c19kYXRhICU+JSBtYXAoLiwgVXBkYXRlX3NleCkKY291bnRfc2V4IDwtZnVuY3Rpb24oeCl7eCAlPiVjb3VudChTZXgpfQpueXRzX2RhdGEgJT4lIG1hcCguLCBjb3VudF9zZXgpCgpgYGAKCkxvb2tzIGdvb2QhCgoKClRoZSB5ZWFycyAoMjAxNi0yMDE5KSB0aGF0IGhhdmUgZmxhdm9ycyBhbHNvIG5lZWQgdGhlIGZsYXZvciBkYXRhIHRvIGJlIGxvZ2ljYWwgKG1lYW5pbmcgVFJVRSBvciBGQUxTRSk6CgpgYGB7cn0KVXBkYXRlX2ZsYXZvcnMgPC0gZnVuY3Rpb24oeCl7eCAlPiUKICAgbXV0YXRlX2F0KHZhcnMobWVudGhvbDpub191c2UpLAogICAgICAgICAgICAgIGxpc3QofnJlY29kZSguLAogICAgICAgICAgICAgICAgICAgICAgICAgICBgMWAgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICAgIC5kZWZhdWx0ID0gRkFMU0UsCiAgICAgICAgICAgICAgICAgICAgICAubWlzc2luZyA9IEZBTFNFKSkpIH0KCm55dHNfZGF0YSAgPC0gbnl0c19kYXRhICAlPiUgbWFwX2F0KHZhcnMoLW55dHMyMDE1KSwgVXBkYXRlX2ZsYXZvcnMpCgpgYGAKCgpOb3cgdGhlcmUgYXJlIGp1c3QgYSBmZXcgY2hhbmdlcyBuZWVkZWQgdGhhdCBhcmUgc3BlY2lmaWMgdG8gMjAxOToKCmBgYHtyfQpueXRzX2RhdGFbWyJueXRzMjAxOSJdXSA8LSBueXRzX2RhdGFbWyJueXRzMjAxOSJdXSAlPiUKICBtdXRhdGVfYWxsKH4gcmVwbGFjZSguLCAuICVpbiUgYygiLk4iLCIuUyIsIi5aIiksIE5BKSkgJT4lCiAgbXV0YXRlKHBzdT1hcy5jaGFyYWN0ZXIocHN1KSkgJT4lCiAgbXV0YXRlKGJyYW5kX2VjaWcgPSByZWNvZGUoYnJhbmRfZWNpZywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYDFgID0gIk90aGVyIiwgI2xldmVscyAxLDggY29tYmluZWQgdG8gYE90aGVyYCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYDJgID0gIkJsdSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGAzYCA9ICJKVVVMIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYDRgID0gIkxvZ2ljIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYDVgID0gIk1hcmtUZW4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBgNmAgPSAiTkpPWSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGA3YCA9ICJWdXNlIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYDhgID0gIk90aGVyIikpCgpgYGAKCkdyZWF0ISBOb3cgd2UgaGF2ZSBhbGwgdGhlIHNhbWUgdmFyaWFibGVzIGFuZCBvdXIgdmFsdWVzIGRvbid0IG5lZWQgdG8gYmUgaGFuZGxlZCBhbnkgZGlmZmVyZW50bHkgZm9yIGFueSBvZiB0aGUgeWVhcnMuIFRodXMgd2UgY2FuIGNvbWJpbmUgdGhlIGRhdGEgYWNyb3NzIHllYXJzLgoKYGBge3J9Cm55dHNfZGF0YSA8LSBueXRzX2RhdGEgJT4lCiAgbWFwX2RmKGJpbmRfcm93cywgLmlkID0gInllYXIiKQoKZ2xpbXBzZShueXRzX2RhdGEpCmBgYAoKV2Ugd2lsbCB3YW50IHRvIGRvIHNvbWUgb2Ygb3VyIGFuYWx5c2lzIHNwbGl0IGJ5IHllYXIsIHNvIHdlIHdvdWxkIGxpa2UgdG8gYmUgc3VyZSB3ZSBoYXZlIG9uZSB2YXJpYWJsZSB0aGF0IGhhcyB0aGUgY29ycmVjdCB2YWx1ZSBmb3IgeWVhci4gSXQgbG9va3MgbGlrZSB3ZSBqdXN0IG5lZWQgdG8gcmVtb3ZlIGAibnl0cyJgIGZyb20gdGhlIHllYXIgdmFyaWFibGUgdGhhdCB3ZSBjcmVhdGVkIGZyb20gdGhlIG5hbWVzIG9mIHRoZSB0aWJibGVzIGluIG91ciBsaXN0IGFuZCB3ZSBzaG91bGQgYmUgYWxsIHNldC4KCmBgYHtyfQpueXRzX2RhdGEgPC0gbnl0c19kYXRhICU+JQogIG11dGF0ZSh5ZWFyPWFzLm51bWVyaWMoc3RyX3JlbW92ZSh5ZWFyLCJueXRzIikpKQoKYGBgCgpIZXJlIGlzIG91ciBjbGVhbiBhbmQgd3JhbmdsZWQgZGF0YToKCiMjIyMgLntzY3JvbGxhYmxlfQpgYGB7cn0KZ2xpbXBzZShueXRzX2RhdGEpCgpgYGAKCk5vdGUgdGhhdCB0aGVyZSBhcmUgc2V2ZXJhbCB2YXJpYWJsZXMgd2hlcmUgdGhlcmUgYXJlIHNpbWlsYXIgbmFtZXMsIGJ1dCB3aXRoIGEgYENgIGNvbXBhcmVkIHRvIGFuIGBFYCBpbiB0aGUgdmFyaWFibGUgbmFtZS4gVGhvc2Ugc3RhcnRpbmcgd2l0aCBgQ2AgYXJlIHJlbGF0ZWQgdG8gcXVlc3Rpb25zIGFib3V0IGN1cnJlbnQgdXNhZ2UgKGxhc3QgMzAgZGF5cyksIHdoaWxlIHRob3NlIHdpdGggYW4gYEVgIGFyZSByZWxhdGVkIHRvIHVzYWdlIGFjcm9zcyB0aGUgc3ViamVjdHMgd2hvbGUgbGlmZSAoImV2ZXIiIHVzYWdlKS4KCiMjIyMKCjxzdHlsZT4KZGl2LmJsdWUgeyBiYWNrZ3JvdW5kLWNvbG9yOiNlNmYwZmY7IGJvcmRlci1yYWRpdXM6IDVweDsgcGFkZGluZzogMjBweDt9Cjwvc3R5bGU+CjxkaXYgY2xhc3MgPSAiYmx1ZSI+CgpSZW1pbmRlcjogQ3VycmVudCB1c2VycyBhcmUgYSBzdWJzZXQgb2YgZXZlciB1c2Vycy4gCgo8L2Rpdj4KCgoKIyMjIFZhcmlhYmxlIFRhYmxlCjxkZXRhaWxzPjxzdW1tYXJ5PiBDbGljayBoZXJlIHRvIHNlZSBhIHRhYmxlIGFib3V0IHRoZSB2YXJpYWJsZXMgPC9zdW1tYXJ5PgoKdmFsdWUgMSA9IHllcywgdmFsdWUgMiA9IG5vCgpWYXJpYWJsZSAgIHwgRGV0YWlscyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAotLS0tLS0tLS0tIHwtLS0tLS0tLS0tLS0tCioqeWVhcioqICB8IHRoZSB5ZWFyIHRoYXQgdGhlIHN1cnZleSByZXN1bHRzIGZyb20gYSBwYXJ0aWN1bGFyIHN0dWRlbnQgd2VyZSBhY3F1aXJlZCAgCioqcHN1KiogfCB0aGUgcHJpbWFyeSBzYW1wbGluZyB1bml0IGZvciB0aGUgc3VydmV5IHdlaWdodGluZyAgCioqZmlud2d0KiogfCB0aGUgZmluYWwgYW5hbHlzaXMgd2VpZ2h0IGZvciB0aGUgc3VydmV5IHdlaWdodGluZyAgCioqc3RyYXR1bSoqIHwgdGhlIHN0cmF0dW0gdXNlZCBmb3IgdmFyaWFuY2UgZXN0aW1hdGlvbiBmb3IgdGhlIHN1cnZleSB3ZWlnaHRpbmcgIAoqKkFnZSoqIHwgdGhlIGFnZSBvZiB0aGUgc3R1ZGVudCB3aGVuIHRoZXkgdG9vayB0aGUgc3VydmV5ICAKKipTZXgqKiB8IHRoZSBzZXggb2YgdGhlIHN0dWRlbnQgd2hlbiB0aGV5IHRvb2sgdGhlIHN1cnZleSAgCioqR3JhZGUqKiB8IHRoZSBncmFkZSBvZiB0aGUgdGhlIHN0dWRlbnQgd2hlbiB0aGUgdG9vayB0aGUgc3VydmV5ICAKKipFQ0lHVCoqIHwgc3R1ZGVudCByZXBvcnRlZCBoYXZpbmcgZXZlciB0cmllZCBjaWdhcmV0dGUgc21va2luZywgZXZlbiBvbmUgb3IgdHdvIHB1ZmZzICAKKipFQ0lHQVIqKiB8IHN0dWRlbnQgcmVwb3J0ZWQgaGF2aW5nIGV2ZXIgdHJpZWQgY2lnYXIsIGNpZ2FyaWxsbywgb3IgbGl0dGxlIGNpZ2FyIHNtb2tpbmcsIGV2ZW4gb25lIG9yIHR3byBwdWZmcyAgCioqRVNMVCoqIHwgc3R1ZGVudCByZXBvcnRlZCBoYXZpbmcgZXZlciB0cmllZCBjaGV3aW5nIHRvYmFjY28sIHNudWZmLCBvciBkaXAgIAoqKkVFTENJR1QqKiB8IHN0dWRlbnQgcmVwb3J0ZWQgaGF2aW5nIGV2ZXIgdHJpZWQgZS1jaWdhcmV0dGVzICAKKipFUk9MTENJR1RTKiogfCBzdHVkZW50IHJlcG9ydGVkIGhhdmluZyBldmVyIHRyaWVkIHJvbGwteW91ci1vd24gY2lnYXJldHRlcyAgCioqRUZMQVZDSUdUUyoqIHwgICgyMDE1IG9ubHkpIGJhc2VkIG9uIGFuc3dlciB0byAiV2hpY2ggb2YgdGhlIGZvbGxvd2luZyB0b2JhY2NvIHByb2R1Y3RzIHRoYXQgeW91IHVzZWQgaW4gdGhlIHBhc3QgMzAgZGF5cyB3ZXJlIGZsYXZvcmVkPyIgIAoqKkVCSURJUyoqIHwgc3R1ZGVudCByZXBvcnRlZCBoYXZpbmcgZXZlciB0cmllZCBiaWRpcyAoc21hbGwgYnJvd24gY2lnYXJldHRlcyB3cmFwcGVkIGluIGEgbGVhZikgIAoqKkVGTEFWQ0lHQVIqKiB8IHN0dWRlbnQgcmVwb3J0ZWQgaGF2aW5nIGV2ZXIgdHJpZWQgYSBmbGF2b3JlZCBjaWdhciAoMjAxNS0yMDE2KQoqKkVIT09LQUgqKiB8IHN0dWRlbnQgcmVwb3J0ZWQgaGF2aW5nIGV2ZXIgc21va2VkIHRvYmFjY28gZnJvbSBhIGhvb2thaCBvciBhIHdhdGVycGlwZSAgCioqRVBJUEUqKiB8IHN0dWRlbnQgcmVwb3J0ZWQgaGF2aW5nIGV2ZXIgc21va2VkIHRvYmFjY28gZnJvbSBhIHBpcGUgKG5vdCBob29rYWgpICAKKipFU05VUyoqIHwgc3R1ZGVudCByZXBvcnRlZCBoYXZpbmcgZXZlciB1c2VkIHNudXMsIHN1Y2ggYXMgQ2FtZWwgb3IgTWFsYm9ybyBTbnVzICAKKipFRElTU09MVioqIHwgc3R1ZGVudCByZXBvcnRlZCBoYXZpbmcgZXZlciB0cmllZCBkaXNzb2x2YWJsZSB0b2JhY2NvIHByb2R1Y3RzIHN1Y2ggYXMgQXJpdmEsIFN0b25ld2FsbCwgQ2FtZWwgb3JicywgQ2FtZWwgc3RpY2tzLCBNYXJsYm9ybyBzdGlja3MsIG9yIENhbWVsIHN0cmlwcyAgCioqQ0NJR1QqKiB8IHN0dWRlbnQgcmVwb3J0ZWQgdGhleSBzbW9rZWQgY2lnYXJldHRlcyBvbiA+PSAxIG9mIHRoZSBwYXN0IDMwIGRheXMgIAoqKkNDSUdBUioqIHwgc3R1ZGVudCByZXBvcnRlZCB0aGV5IHNtb2tlZCBjaWdhcnMgb24gPj0gMSBvZiB0aGUgcGFzdCAzMCBkYXlzICAKKipDU0xUKiogfCBzdHVkZW50IHJlcG9ydGVkIHRoZXkgdXNlZCBjaGV3aW5nIHRvYmFjY28sIHNudWZmLCBvciBkaXAgb24gPj0gMSBvZiB0aGUgcGFzdCAzMCBkYXlzICAKKipDRUxDSUdUKiogfCBzdHVkZW50IHJlcG9ydGVkIHRoZXkgdXNlZCBlbGVjdHJvbmljIGNpZ2FyZXR0ZXMgb3IgZS1jaWdhcmV0dGVzIG9uZSBvciBtb3JlIGRheXMgaW4gdGhlIHBhc3QgMzAKKipDUk9MTENJR1RTKiogfCBzdHVkZW50IHJlcG9ydGVkIHRoZXkgc21va2VkIHJvbGwteW91ci1vd24gY2lnYXJldHRlcyBkdXJpbmcgdGhlIHBhc3QgMzAgZGF5cyAgCioqQ0ZMQVZDSUdUUyoqfCAoMjAxNSBvbmx5KSBiYXNlZCBvbiBhbnN3ZXIgdG8gIldoaWNoIG9mIHRoZSBmb2xsb3dpbmcgdG9iYWNjbyBwcm9kdWN0cyB0aGF0IHlvdSB1c2VkIGluIHRoZSBwYXN0IDMwIGRheXMgd2VyZSBmbGF2b3JlZD8iIAoqKkNCSURJUyoqIHwgc3R1ZGVudCByZXBvcnRlZCB0aGV5IHNtb2tlZCBiaWRpcyBkdXJpbmcgdGhlIHBhc3QgMzAgZGF5cyAgCioqQ0hPT0tBSCoqIHwgc3R1ZGVudCByZXBvcnRlZCB0aGV5IHNtb2tlZCB0b2JhY2NvIGluIGEgaG9va2FoIG9uID49IDEgb2YgdGhlIHBhc3QgMzAgZGF5cyAgCioqQ1BJUEUqKiB8IHN0dWRlbnQgcmVwb3J0ZWQgdGhleSBzbW9rZWQgdG9iYWNjbyBpbiBhIHBpcGUgKG5vdCBob29rYWgpIGR1cmluZyB0aGUgcGFzdCAzMCBkYXlzICAKKipDU05VUyoqIHwgc3R1ZGVudCByZXBvcnRlZCB0aGV5IHVzZWQgc251cyBkdXJpbmcgdGhlIHBhc3QgMzAgZGF5cyAgICAKKipDRElTU09MVioqIHwgc3R1ZGVudCByZXBvcnRlZCB0aGV5IHVzZWQgZGlzc29sdmFibGUgdG9iYWNjbyBwcm9kdWN0cyBzdWNoIGFzIEFyaXZhLCBTdG9uZXdhbGwsIENhbWVsIG9yYnMsIENhbWVsIHN0aWNrcywgTWFybGJvcm8gc3RpY2tzLCBvciBDYW1lbCBzdHJpcHMgZHVyaW5nIHRoZSBwYXN0IDMwIGRheXMgIAoqKmJyYW5kX2VjaWcqKiB8IHN0dWRlbnQgYW5zd2VyIHRvICJEdXJpbmcgdGhlIHBhc3QgMzAgZGF5cywgd2hhdCBicmFuZCBvZiBlLWNpZ2FyZXR0ZXMgZGlkIHlvdSB1c3VhbGx5IHVzZT8iICAKKiptZW50aG9sKiogfCBzdHVkZW50IHNlbGVjdGVkIE1lbnRob2wgb3IgbWludCBhcyB0aGUgYW5zd2VyIHRvICJXaGF0IGZsYXZvcnMgb2YgdG9iYWNjbyBwcm9kdWN0cyBoYXZlIHlvdSB1c2VkIGluIHRoZSBwYXN0IDMwIGRheXM/IChzZWxlY3Qgb25lIG9yIG1vcmUpIiAgCioqY2xvdmVfc3BpY2UqKiB8IHN0dWRlbnQgc2VsZWN0ZWQgY2xvdmUgb3Igc3BpY2UgYXMgdGhlIGFuc3dlciB0byAiV2hhdCBmbGF2b3JzIG9mIHRvYmFjY28gcHJvZHVjdHMgaGF2ZSB5b3UgdXNlZCBpbiB0aGUgcGFzdCAzMCBkYXlzPyAoc2VsZWN0IG9uZSBvciBtb3JlKSIgIAoqKmZydWl0KiogfCBzdHVkZW50IHNlbGVjdGVkIGZydWl0IGFzIHRoZSBhbnN3ZXIgdG8gIldoYXQgZmxhdm9ycyBvZiB0b2JhY2NvIHByb2R1Y3RzIGhhdmUgeW91IHVzZWQgaW4gdGhlIHBhc3QgMzAgZGF5cz8gKHNlbGVjdCBvbmUgb3IgbW9yZSkiICAKKipjaG9jb2xhdGUqKiB8IHN0dWRlbnQgc2VsZWN0ZWQgY2hvY29sYXRlIGFzIHRoZSBhbnN3ZXIgdG8gIldoYXQgZmxhdm9ycyBvZiB0b2JhY2NvIHByb2R1Y3RzIGhhdmUgeW91IHVzZWQgaW4gdGhlIHBhc3QgMzAgZGF5cz8gKHNlbGVjdCBvbmUgb3IgbW9yZSkiICAKKiphbGNvaG9saWNfZHJpbmsqKiB8IHN0dWRlbnQgc2VsZWN0ZWQgYWxjb2hvbGljIGRyaW5rIChzdWNoIGFzIHdpbmUsIGNvZ25hYywgbWFyZ2FyaXRhLCBvciBvdGhlciBjb2NrdGFpbHMpIGFzIHRoZSBhbnN3ZXIgdG8gIldoYXQgZmxhdm9ycyBvZiB0b2JhY2NvIHByb2R1Y3RzIGhhdmUgeW91IHVzZWQgaW4gdGhlIHBhc3QgMzAgZGF5cz8gKGNob29zZSBvbmUgb3IgbW9yZSkiICAKKipjYW5keV9kZXNzZXJ0X3N3ZWV0cyoqIHwgIHN0dWRlbnQgc2VsZWN0ZWQgY2FuZHksIGRlc3NlcnRzIG9yIG90aGVyIHN3ZWV0cyBhcyB0aGUgYW5zd2VyIHRvICJXaGF0IGZsYXZvcnMgb2YgdG9iYWNjbyBwcm9kdWN0cyBoYXZlIHlvdSB1c2VkIGluIHRoZSBwYXN0IDMwIGRheXM/IChjaG9vc2Ugb25lIG9yIG1vcmUpIiAKKipvdGhlcioqIHwgc3R1ZGVudCBzZWxlY3RlZCBzb21lIG90aGVyIGZsYXZvciBub3QgbGlzdGVkIGFzIHRoZSBhbnN3ZXIgdG8gIldoYXQgZmxhdm9ycyBvZiB0b2JhY2NvIHByb2R1Y3RzIGhhdmUgeW91IHVzZWQgaW4gdGhlIHBhc3QgMzAgZGF5cz8gKGNob29zZSBvbmUgb3IgbW9yZSkiIAoqKm5vX3VzZSoqIHwgc3R1ZGVudCByZXBvcnRlZCB0aGF0IHRoZXkgZGlkIG5vdCB1c2UgYW55IGZsYXZvcmVkIHRvYmFjY28gcHJvZHVjdHMgaW4gdGhlIHBhc3QgMzAgZGF5cyBvciBkaWQgbm90IGFuc3dlciB0aGUgcXVlc3Rpb24gYWJvdXQgdXNpbmcgZmxhdm9ycwoqKkVIVFAqKiB8IHN0dWRlbnQgcmVwb3J0ZWQgaGF2aW5nIGV2ZXIgdHJpZWQgaGVhdGVkIChhbHNvIGtub3duIGFzICJoZWF0LW5vdC1idXJuIikgdG9iYWNjbyBwcm9kdWN0cyAgCioqQ0hUUCoqIHwgc3R1ZGVudCByZXBvcnRlZCB0aGV5IHVzZWQgaGVhdGVkIHRvYmFjY28gcHJvZHVjdHMgZHVyaW5nIHRoZSBwYXN0IDMwIGRheXMgIAo8L2RldGFpbHM+CgojIyAqKkRhdGEgVmlzdWFsaXphdGlvbioqCioqKiAKClJlY2FsbCB0aGF0IG91ciBtYWluIHF1ZXN0aW9ucyB3ZXJlOgoKMSkgSG93IGhhcyB0b2JhY2NvL25pY290aW5lIGFuZCBlLWNpZ2FyZXR0ZSB1c2UgYnkgQW1lcmljYW4geW91dGhzIGNoYW5nZWQgc2luY2UgMjAxNT8KMikgSG93IGRvIHZhcGluZyByYXRlcyBjb21wYXJlIGJldHdlZW4gbWFsZXMgYW5kIGZlbWFsZXM/CjMpIFdoYXQgdmFwaW5nIGJyYW5kcyBhbmQgZmxhdm9ycyBhcHBlYXIgdG8gYmUgdXNlZCB0aGUgbW9zdCBmcmVxdWVudGx5PyAgCldlIHdpbGwgYmFzZSB0aGlzIG9uIHRoZSBmb2xsb3dpbmcgc3VydmV5IHF1ZXN0aW9uczogICAKPiAiRHVyaW5nIHRoZSBwYXN0IDMwIGRheXMsIHdoYXQgYnJhbmQgb2YgZS1jaWdhcmV0dGVzIGRpZCB5b3UgdXN1YWxseSB1c2U/IiAgIAo+IiBXaGF0IGZsYXZvcnMgb2YgdG9iYWNjbyBwcm9kdWN0cyBoYXZlIHlvdSB1c2VkIGluIHRoZSBwYXN0CjMwIGRheXM/IiAKCjQpIEhhdmUgdmFwaW5nIHJhdGVzIHBvc3NpYmx5IGluZmx1ZW5jZWQgdG9iYWNjby9uaWNvdGluZSB1c2U/CgoKV2UgYXJlIG5vdyBnb2luZyB0byBjcmVhdGUgdmlzdWFsaXphdGlvbnMgdG8gZXhwbG9yZSBlYWNoIG9mIHRoZXNlIHF1ZXN0aW9ucy4KCkZvciBtYW55IG9mIHRoZXNlIHF1ZXN0aW9ucyB3ZSB3aWxsIGJlIGludGVyZXN0ZWQgaW4gYm90aCAqKmN1cnJlbnQqKiBhbmQgKipldmVyKiogdXNlcnM6CgpXZSBkZWZpbmUgdGhlc2UgdHdvIGdyb3VwcyBiYXNlZCBvbiB0aGUgc3VydmV5IHF1ZXN0aW9uczoKCjEpICoqY3VycmVudCoqID0gc3R1ZGVudHMgd2hvIHVzZWQgdGhlIHByb2R1Y3QgZm9yID49MSBkYXkgaW4gdGhlIHBhc3QgMzAgZGF5cyAgCjIpICoqZXZlcioqID0gIHN0dWRlbnRzIHdobyByZXBvcnQgaGF2aW5nIHVzZWQgb3IgdHJpZWQgYSBwcm9kdWN0IGF0IGFueSBwb2ludCBpbiB0aW1lCgpBbGwgKipjdXJyZW50KiogdXNlcnMgYXJlIHRoZXJlZm9yZSAqKmV2ZXIqKiB1c2VycyBidXQgbm90IGFsbCAqKmV2ZXIqKiB1c2VycyBhcmUgKipjdXJyZW50KiogdXNlcnMuIFRodXMsICoqY3VycmVudCoqIHVzZXJzIGFyZSBhIHN1YnNldCBvZiAqKmV2ZXIqKiB1c2Vycy4KClRvIGFkZCB0aGVzZSBncm91cHMgdG8gb3VyIGRhdGEgd2Ugd2lsbCBkbyBhIGJpdCBtb3JlIHdyYW5nbGluZy4gVXNpbmcgdGhlIGBtdXRhdGUoKWAgZnVuY3Rpb24gYWdhaW4gb2YgdGhlIGBkcGx5cmAgcGFja2FnZSwgd2Ugd2lsbCBmaXJzdCBjcmVhdGUgdHdvIG5ldyB2YXJpYWJsZXMgdGhhdCBhcmUgdGhlIHN1bSBvZiB0aGUgdmFsdWVzIGZvciBxdWVzdGlvbnMgdGhhdCByZWxhdGUgdG8gdGhlIHVzZSBvZiBhbnkgdG9iYWNjbyBwcm9kdWN0IHN1cnZleWVkIGFib3V0IGV2ZXIgKHF1ZXN0aW9ucyB0aGF0IHN0YXJ0IHdpdGggdGhlIGxldHRlciAiRSIpLCBhbmQgcXVlc3Rpb25zIHRoYXQgcmVsYXRlIHRvIHRoZSBjdXJyZW50IHVzZSBvZiBhbnkgdG9iYWNjbyBwcm9kdWN0cyBzdXJ2ZXllZCBhYm91dCAocXVlc3Rpb25zIHRoYXQgc3RhcnQgd2l0aCB0aGUgbGV0dGVyICJDIikuCgpIZXJlIGFyZSBzb21lIGV4YW1wbGVzIGZvciB0aGVzZSBkYXRhIGVudHJpZXM6ICAKCiAtIEVQSVBFOiBTdHVkZW50cyB3aG8gcmVwb3J0ZWQgdGhleSBoYXZlIHNtb2tlZCB0b2JhY2NvIGZyb20gYSBwaXBlIChub3QgaG9va2FoKS4gIAogLSBDUElQRTogU3R1ZGVudHMgd2hvIHJlcG9ydGVkIHRoZXkgc21va2VkIHRvYmFjY28gaW4gYSBwaXBlIChub3QgaG9va2FoKSBkdXJpbmcgdGhlIHBhc3QgMzAgZGF5cy4gCiAtIEVST0xMQ0lHVFM6IFJFQ09ERTogU3R1ZGVudHMgd2hvIHJlcG9ydGVkIHRoZXkgaGF2ZSB0cmllZCBzbW9raW5nIHJvbGwteW91ci1vd24gY2lnYXJldHRlcy4gCiAtIENST0xMQ0lHVFM6IFJFQ09ERTogU3R1ZGVudHMgd2hvIHJlcG9ydGVkIHNtb2tlZCByb2xsLXlvdXItb3duIGNpZ2FyZXR0ZXMgZHVyaW5nIHRoZSBwYXN0IDMwIGRheXMuIAogCkJhc2VkIG9uIG1hbnkgcXVlc3Rpb25zIGxpa2UgdGhpczogIAogCiBJbiB0aGUgcGFzdCAzMCBkYXlzLCB3aGljaCBvZiB0aGUgZm9sbG93aW5nIHByb2R1Y3RzIGhhdmUgeW91IHVzZWQgb24gYXQgbGVhc3Qgb25lIGRheT8gKFNlbGVjdCBvbmUgb3IgbW9yZSkgCkEuIFJvbGwteW91ci1vd24gY2lnYXJldHRlcyAgCkIuIFBpcGVzIGZpbGxlZCB3aXRoIHRvYmFjY28gKG5vdCBob29rYWggb3Igd2F0ZXJwaXBlKSAgCkMuIFNudXMsIHN1Y2ggYXMgQ2FtZWwsIE1hcmxib3JvLCBvciBHZW5lcmFsIFNudXMgIApELiBEaXNzb2x2YWJsZSB0b2JhY2NvIHByb2R1Y3RzIHN1Y2ggYXMgQXJpdmEsIFN0b25ld2FsbCwgQ2FtZWwgb3JicywgQ2FtZWwgc3RpY2tzLCBNYXJsYm9ybyBzdGlja3MsCm9yIENhbWVsIHN0cmlwcyAgCkUuIEJpZGlzIChzbWFsbCBicm93biBjaWdhcmV0dGVzIHdyYXBwZWQgaW4gYSBsZWFmKSAgCkYuIEkgaGF2ZSBub3QgdXNlZCBhbnkgb2YgdGhlIHByb2R1Y3RzIGxpc3RlZCBhYm92ZSBpbiB0aGUgcGFzdCAzMCBkYXlzICAKCiBXaGljaCBvZiB0aGUgZm9sbG93aW5nIHRvYmFjY28gcHJvZHVjdHMgaGF2ZSB5b3UgZXZlciB0cmllZCwgZXZlbiBqdXN0IG9uZSB0aW1lPyAoU2VsZWN0IG9uZSBvciBtb3JlKSAgCkEuIFJvbGwteW91ci1vd24gY2lnYXJldHRlcyAgCkIuIFBpcGVzIGZpbGxlZCB3aXRoIHRvYmFjY28gKG5vdCBob29rYWggb3Igd2F0ZXJwaXBlKSAgCkMuIFNudXMsIHN1Y2ggYXMgQ2FtZWwsIE1hcmxib3JvLCBvciBHZW5lcmFsIFNudXMgIApELiBEaXNzb2x2YWJsZSB0b2JhY2NvIHByb2R1Y3RzIHN1Y2ggYXMgQXJpdmEsIFN0b25ld2FsbCwgQ2FtZWwgb3JicywgQ2FtZWwgc3RpY2tzLCBNYXJsYm9ybyBzdGlja3MsIG9yIENhbWVsIHN0cmlwcyAgCkUuIEJpZGlzIChzbWFsbCBicm93biBjaWdhcmV0dGVzIHdyYXBwZWQgaW4gYSBsZWFmKSAgCkYuIEkgaGF2ZSBuZXZlciB0cmllZCBhbnkgb2YgdGhlIHByb2R1Y3RzIGxpc3RlZCBhYm92ZSAgIAogCiAKV2Ugd2lsbCBzdW0gYWNyb3NzIHRoZSB2YXJpYWJsZXMgdGhhdCByZWxhdGUgdG8gZXZlciBvciBjdXJyZW50IHRvYmFjY28gdXNhZ2UgcXVlc3Rpb25zIHRvIGdldCBkZXRlcm1pbmUgaWYgdGhlIHN0dWRlbnQgYW5zd2VyZWQgeWVzIHRvIGFueSBvZiB0aGUgZXZlciBvciBjdXJyZW50IHF1ZXN0aW9ucy4gCgpXZSB3aWxsIHRoZW4gdXNlIHRoZSBgY2FzZV93aGVuKClgIGZ1bmN0aW9uIG9mIHRoZSBgZHBseXJgIHBhY2thZ2UgdG8gY29udmVydCB0aGUgc3VtIHZhbHVlcyB0byBgVFJVRWAgb3IgYEZBTFNFYCBiYXNlZCBvbiB0aGUgdGhyZXNob2xkIG9mIHplcm8uIElmIHRoZSBzdW0gaXMgZ3JlYXRlciB0aGFuIHplcm8sIHRoZW4gd2Uga25vdyB0aGUgc3R1ZGVudCBhbnN3ZXJlZCB5ZXMgdG8gYXQgbGVhc3Qgb25lIHF1ZXN0aW9uLiAKIAoKYGBge3J9Cm55dHNfZGF0YSA8LW55dHNfZGF0YSAlPiUKICAgIG11dGF0ZSh0b2JhY2NvX3N1bV9ldmVyID0gc2VsZWN0KC4sIHN0YXJ0c193aXRoKCJFIiwgaWdub3JlLmNhc2UgPSBGQUxTRSkpICU+JQogICAgICAgICAgICAgICBiYXNlOjphcHBseSgxLCBzdW0sIG5hLnJtPVRSVUUpLAogICAgICAgICAgIHRvYmFjY29fc3VtX2N1cnJlbnQgPSBzZWxlY3QoLiwgc3RhcnRzX3dpdGgoIkMiLCBpZ25vcmUuY2FzZSA9IEZBTFNFKSkgJT4lCiAgICAgICAgICAgICAgIGFwcGx5KDEsIHN1bSwgbmEucm09VFJVRSkpICU+JQogICAgbXV0YXRlKHRvYmFjY29fZXZlciA9IGNhc2Vfd2hlbih0b2JhY2NvX3N1bV9ldmVyID4gMCB+IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRvYmFjY29fc3VtX2V2ZXIgPT0gMCB+IEZBTFNFKSwKICAgICAgICAgICB0b2JhY2NvX2N1cnJlbnQgPSBjYXNlX3doZW4odG9iYWNjb19zdW1fY3VycmVudCA+IDAgfiBUUlVFLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0b2JhY2NvX3N1bV9jdXJyZW50ID09IDAgfiBGQUxTRSkpIAoKYGBgCgoKIyMjIyB7LnNjcm9sbGFibGV9CmBgYHtyfQpnbGltcHNlKG55dHNfZGF0YSkKYGBgCiMjIyMKCldlIGFyZSBhbHNvIGludGVyZXN0ZWQgaW4gZS1jaWdhcmV0dGUgdXNhZ2UgY29tcGFyZWQgdG8gb3RoZXIgdG9iYWNjbyBwcm9kdWN0cywgc28gd2Ugd2lsbCBjcmVhdGUgc29tZSB2YXJpYWJsZXMgcmVsYXRlZCB0byB0aGUgc3VtIG9mIGFsbCBlLWNpZ2FyZXR0ZSB1c2FnZSBxdWVzdGlvbiB2YXJpYWJsZXMgYW5kIHRoZSBzdW0gb2YgYWxsIHRvYmFjY28gdXNhZ2UgcXVlc3Rpb24gdmFyaWFibGVzIGV4Y2x1ZGluZyB0aG9zZSB0aGF0IGFyZSBhYm91dCBlLWNpZ2FyZXR0ZXMuIFRoZXJlIGlzIG9ubHkgb25lIHZhcmlhYmxlIGFib3V0IGUtY2lnYXJldHRlIHVzYWdlIGV2ZXIgKEVFTENJR1QpIGFuZCBvbmUgYWJvdXQgY3VycmVudCB1c2FnZSAoQ0VMQ0lHVCkuCgpgYGB7cn0KICAgbnl0c19kYXRhIDwtbnl0c19kYXRhICU+JSBtdXRhdGUoZWNpZ19zdW1fZXZlciA9IHNlbGVjdCguLCBFRUxDSUdUKSAlPiUKICAgICAgICAgICAgICAgYXBwbHkoMSwgc3VtLCBuYS5ybT1UUlVFKSwKICAgICAgICAgICBlY2lnX3N1bV9jdXJyZW50ID0gc2VsZWN0KC4sIENFTENJR1QpICU+JQogICAgICAgICAgICAgICBhcHBseSgxLCBzdW0sIG5hLnJtPVRSVUUpLAogICAgICAgICAgIG5vbl9lY2lnX3N1bV9ldmVyID0gc2VsZWN0KC4sIHN0YXJ0c193aXRoKCJFIiwgaWdub3JlLmNhc2UgPSBGQUxTRSkpICU+JQogICAgICAgICAgICAgICBzZWxlY3QoLiwtRUVMQ0lHVCkgJT4lCiAgICAgICAgICAgICAgIGFwcGx5KDEsIHN1bSwgbmEucm09VFJVRSksCiAgICAgICAgICAgbm9uX2VjaWdfc3VtX2N1cnJlbnQgPSBzZWxlY3QoLiwgc3RhcnRzX3dpdGgoIkMiLCBpZ25vcmUuY2FzZSA9IEZBTFNFKSkgJT4lCiAgICAgICAgICAgICAgIHNlbGVjdCguLC1DRUxDSUdUKSAlPiUKICAgICAgICAgICAgICAgYXBwbHkoMSwgc3VtLCBuYS5ybT1UUlVFKSkgJT4lCiAgICBtdXRhdGUoZWNpZ19ldmVyID0gY2FzZV93aGVuKGVjaWdfc3VtX2V2ZXIgPiAwIH4gVFJVRSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZWNpZ19zdW1fZXZlciA9PSAwIH4gRkFMU0UpLAogICAgICAgICAgIGVjaWdfY3VycmVudCA9IGNhc2Vfd2hlbihlY2lnX3N1bV9jdXJyZW50ID4gMCB+IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVjaWdfc3VtX2N1cnJlbnQgPT0gMCB+IEZBTFNFKSwKICAgICAgICAgICBub25fZWNpZ19ldmVyID0gY2FzZV93aGVuKG5vbl9lY2lnX3N1bV9ldmVyID4gMCB+IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5vbl9lY2lnX3N1bV9ldmVyID09IDAgfiBGQUxTRSksCiAgICAgICAgICAgbm9uX2VjaWdfY3VycmVudCA9IGNhc2Vfd2hlbihub25fZWNpZ19zdW1fY3VycmVudCA+IDAgfiBUUlVFLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBub25fZWNpZ19zdW1fY3VycmVudCA9PSAwIH4gRkFMU0UpKQpgYGAKCgoKIyMjIyB7LnNjcm9sbGFibGV9CmBgYHtyfQpnbGltcHNlKG55dHNfZGF0YSkKYGBgCgpGaW5hbGx5LCB3ZSBhcmUgYWxzbyBpbnRlcmVzdGVkIGluIHN0dWRlbnRzIHRoYXQgb25seSB1c2UgZS1jaWdhcmV0dGVzIGFuZCB0aG9zZSB0aGF0IG9ubHkgb3RoZXIgZm9ybXMgb2YgdG9iYWNjby4KV2Ugd2lsbCBhZ2FpbiB1c2UgdGhlIGNhc2Vfd2hlbiBmdW5jdGlvbiB0byBhY2NvbXBsaXNoIGNyZWF0aW5nIG5ldyB2YXJpYWJsZXMuIAoKSGVyZSBpcyBhIHRveSBleGFtcGxlIG9mIHdoYXQgd2Ugd2lsbCBkbyB3aXRoIHRoZSBsYXJnZXIgZGF0YXNldDoKClJlY2FsbCB0aGF0IGN1cnJlbnQgdXNlcnMgYXJlIGEgc3Vic2V0IG9mIGV2ZXIgdXNlcnMsIHRodXMgc3R1ZGVudHMgd291bGQgdHlwaWNhbGx5IGFuc3dlciB5ZXMgdG8gaGF2aW5nIHRyaWVkIHZhcGluZyBwcm9kdWN0cyBpZiB0aGV5IGhhZCB1c2VkIHRoZW0gb25lIG9yIG1vcmUgZGF5cyBpbiB0aGUgcGFzdCAzMCBkYXlzLgoKRmlyc3Qgd2Ugd2lsbCBtYWtlIGEgc21hbGwgdG95IGRhdGFzZXQ6CmBgYHtyfQp0ZXN0IDwtIHRpYmJsZShlY2lnX2V2ZXIgPSBjKCJUUlVFIiwgIlRSVUUiLCAiVFJVRSIsICJUUlVFIiwgIkZBTFNFIiwgIkZBTFNFIiwgIlRSVUUiLCAiRkFMU0UiLCAiRkFMU0UiKSwKICAgICAgICAgICAgICAgbm9uX2VjaWdfZXZlciA9IGMoIlRSVUUiLCAiRkFMU0UiLCJGQUxTRSIsIkZBTFNFIiwgIkZBTFNFIiwgIkZBTFNFIiwgIlRSVUUiLCAiVFJVRSIsICJUUlVFIiksCiAgICAgICAgICAgICAgIGVjaWdfY3VycmVudCA9IGMoIlRSVUUiLCAiRkFMU0UiLCJGQUxTRSIsICJUUlVFIiwgIlRSVUUiLCAiRkFMU0UiLCAiRkFMU0UiLCAiRkFMU0UiLCAiRkFMU0UiKSwKICAgICAgICAgICAgICAgbm9uX2VjaWdfY3VycmVudCA9IGMoIlRSVUUiLCAiRkFMU0UiLCJUUlVFIiwgIkZBTFNFIiwgIlRSVUUiLCAiRkFMU0UiLCAiRkFMU0UiLCAiRkFMU0UiLCAiVFJVRSIpKQoKdGVzdApgYGAKCk5vdywgbGV0J3MgbG9vayBhdCBpZGVudGlmeWluZyBzdXRlbnRzIHdobyBoYXZlIG9ubHkgZXZlciB0cmllZCBlLWNpZ2FyZXR0ZXMsIGJ1dCBhcmUgbm90IGN1cnJlbnQgdXNlcnMsIG5vciBoYXZlIHRoZXkgdHJpZWQgb3IgY3VycmVudGx5IHVzZSBvdGhlciB0b2JhY2NvIHByb2R1Y3RzLgoKYGBge3J9Cgp0ZXN0IDwtIHRlc3QgJT4lIG11dGF0ZShlY2lnX29ubHlfZXZlciA9IGNhc2Vfd2hlbihlY2lnX2V2ZXIgPT0gVFJVRSAmIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5vbl9lY2lnX2V2ZXIgPT0gRkFMU0UgJiAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZWNpZ19jdXJyZW50ID09IEZBTFNFICYKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBub25fZWNpZ19jdXJyZW50ID09IEZBTFNFIH4gVFJVRSwKICAgICAgICAgICAgICAjaWYgYW55IG9mIHRoZSBsYXN0IHRocmVlIGxpbmVzIGFyZSBUUlVFIHRoYW4gdGhlIGVjaWdfb25seV9ldmVyIHZhbHVlIHNob3VsZCBiZSBmYWxzZQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVFJVRSB+IEZBTFNFKSkKdGVzdApgYGAKCldlIGNhbiBzZWUgZnJvbSB0aGUgZm91cnRoIHJvdywgdGhhdCBldmVuIHRob3VnaCB0aGUgc3R1ZGVudCByZXBvcnRlZCB5ZXMgdG8gZXZlciB0cnlpbmcgZS1jaWdhcmV0dGVzLCB0aGV5IGFsc28gcmVwb3J0ZWQgeWVzIHRvIGN1cnJlbnRseSB1c2luZyBlLWNpZ2FyZXR0ZXMsIHRodXMgdGhlIHZhbHVlIGZvciBvbmx5IGV2ZXIgdHJ5aW5nIGUtY2lnYXJldHRlcyBpcyBgRkFMU0VgLiBBZGRpdGlvbmFsbHkgd2UgY2FuIHNlZSBmcm9tIHRoZSBzZXZlbnRoIHJvdyB0aGF0IHNpbWlsYXJseSBldmVuIHRob3VnaCB0aGUgc3R1ZGVudCByZXBvcnRlZCB5ZXN0IHRvIGV2ZXIgdHJ5aW5nIGUwY2lnYXJldHRlcywgdGhleSBhbHNvIHJlcG9ydGVkIHllcyB0byBldmVyIHRyeWluZyBvdGhlciBwcm9kdWN0cywgYW5kIHRoZSB2YWx1ZSBmb3Igb25seSBldmVyIHRyeWluZyBlLWNpZ2FyZXR0ZXMgaXMgYEZBTFNFYC4gSW1wb3J0YW50bHksIHdlIGNhbiBzZWUgZnJvbSB0aGUgNnRoIHJvdywgdGhhdCBpZiBhbGwgcmVzcG9uc2VzIGFyZSBuZWdhdGl2ZSB0aGFuIHRoZSB2YWx1ZSBpcyBgRkFMU0VgLgoKTm93IHdlIHdpbGwgZXhwYW5kIHRoaXMgdG8gdGhlIG90aGVyIHBvc3NpYmxlIGNhdGVnb3JpZXMuIE5vdGljZSBzaW5jZSwgY3VycmVudCB1c2VycyBhcmUgYSBzdWJzZXQgb2YgZXZlciB1c2VycywgaXQgZG9lc24ndCBtYXR0ZXIgaWYgYSB1c2VyIHJlcG9ydHMgeWVzIHRvIGV2ZXIgdHJ5aW5nICBlLWNpZ2FyZXR0ZXMsIHRoZXkgY2FuIHN0aWxsIGJlIGEgY3VycmVudCB1c2VyLgoKYGBge3J9CnRlc3QgPC10ZXN0ICU+JSBtdXRhdGUoZWNpZ19vbmx5X2V2ZXIgPSBjYXNlX3doZW4oZWNpZ19ldmVyID09IFRSVUUgJiAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5vbl9lY2lnX2V2ZXIgPT0gRkFMU0UgJiAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBlY2lnX2N1cnJlbnQgPT0gRkFMU0UgJgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbm9uX2VjaWdfY3VycmVudCA9PSBGQUxTRSB+IFRSVUUsCiAgICAgICAgICAgICAgI2lmIGFueSBvZiB0aGUgbGFzdCB0aHJlZSBsaW5lcyBhcmUgVFJVRSB0aGFuIHRoZSBlY2lnX29ubHlfZXZlciB2YWx1ZSBzaG91bGQgYmUgZmFsc2UKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUUgfiBGQUxTRSksCiAgICAgICAgICAgICAgICAgZWNpZ19vbmx5X2N1cnJlbnQgPSBjYXNlX3doZW4oZWNpZ19jdXJyZW50ID09IFRSVUUgJgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbm9uX2VjaWdfZXZlciA9PSBGQUxTRSAmCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBub25fZWNpZ19jdXJyZW50ID09IEZBTFNFIH4gVFJVRSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUUgfiBGQUxTRSksCiAgICAgICAgICAgICAgIG5vbl9lY2lnX29ubHlfZXZlciA9IGNhc2Vfd2hlbihub25fZWNpZ19ldmVyID09IFRSVUUgJgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVjaWdfZXZlciA9PSBGQUxTRSAmCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZWNpZ19jdXJyZW50ID09IEZBTFNFICYKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5vbl9lY2lnX2N1cnJlbnQgPT0gRkFMU0UgfiBUUlVFLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBUUlVFIH4gRkFMU0UpLAogICAgICAgICBub25fZWNpZ19vbmx5X2N1cnJlbnQgPSBjYXNlX3doZW4obm9uX2VjaWdfY3VycmVudCA9PSBUUlVFICYKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBlY2lnX2V2ZXIgPT0gRkFMU0UgJgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVjaWdfY3VycmVudCA9PSBGQUxTRSB+IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVFJVRSB+IEZBTFNFKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgbm9fdXNlID0gY2FzZV93aGVuKG5vbl9lY2lnX2V2ZXIgPT0gRkFMU0UgJgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVjaWdfZXZlciA9PSBGQUxTRSAmCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZWNpZ19jdXJyZW50ID09IEZBTFNFICYKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5vbl9lY2lnX2N1cnJlbnQgPT0gRkFMU0UgflRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVFJVRSB+IEZBTFNFKSkgCgp0ZXN0CmBgYAoKVGFrZSBhIG1pbnV0ZSB0byBjaGVjayB0aGF0IHRoZSB2YWx1ZXMgYXJlIHdoYXQgd2Ugd291bGQgZXhwZWN0LgoKT2ssIG5vdyB3ZSBhcmUgZ29pbmcgdG8gbWFrZSBhIGBHcm91cGAgdmFyaWFibGUgYmFzZWQgb24gdGhlIG5ldyB2YXJpYWJsZXMgd2UganVzdCBtYWRlLiBJZiBhIHN0dWRlbnQgaGFzIG9ubHkgZXZlciB0cmllZCBvciBjdXJyZW50bHkgdXNlcyBlLWNpZ2FyZXR0ZXMsIHRoZSB2YWx1ZSB3aWxsIGJlIGBPbmx5IGUtY2lnYXJldHRlc2AuIFRoZSBzYW1lIHdpbGwgYmUgdHJ1ZSBmb3Igb3RoZXIgdG9iYWNjbyBwcm9kdWN0cy4gSWYgYSBzdHVkZW50IGhhcyB0cmllZCBlaXRoZXIgdGhleSB3aWxsIGJlIGNhbGxlZCBgQm90aGAuCgpgYGB7Un0KCnRlc3QgPC0gdGVzdCAlPiUgCiAgbXV0YXRlKEdyb3VwID0gY2FzZV93aGVuKGVjaWdfb25seV9ldmVyID09IFRSVUUgfAogICAgICAgICAgICAgICAgICAgICAgICBlY2lnX29ubHlfY3VycmVudCA9PSBUUlVFIH4gIk9ubHkgZS1jaWdhcmV0dGVzIiwKICAgICAgICAgICAgICAgICAgICAgICBub25fZWNpZ19vbmx5X2V2ZXIgPT0gVFJVRSB8CiAgICAgICAgICAgICAgICAgICAgbm9uX2VjaWdfb25seV9jdXJyZW50ID09IFRSVUUgfiAiT25seSBvdGhlciBwcm9kdWN0cyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbm9fdXNlID09IFRSVUUgfiAiTmVpdGhlciIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBUUlVFIH4gIkJvdGgiKSkKCnRlc3QKCmBgYAoKYGBge3J9Cm55dHNfZGF0YSAlPD4lCiAgICBtdXRhdGUoZWNpZ19vbmx5X2V2ZXIgPSBjYXNlX3doZW4oZWNpZ19ldmVyID09IFRSVUUgJiAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5vbl9lY2lnX2V2ZXIgPT0gRkFMU0UgJiAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBlY2lnX2N1cnJlbnQgPT0gRkFMU0UgJgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbm9uX2VjaWdfY3VycmVudCA9PSBGQUxTRSB+IFRSVUUsCiAgICAgICAgICAgICAgI2lmIGFueSBvZiB0aGUgbGFzdCB0aHJlZSBsaW5lcyBhcmUgVFJVRSB0aGFuIHRoZSBlY2lnX29ubHlfZXZlciB2YWx1ZSBzaG91bGQgYmUgZmFsc2UKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUUgfiBGQUxTRSksCiAgICAgICAgICAgICAgICAgZWNpZ19vbmx5X2N1cnJlbnQgPSBjYXNlX3doZW4oZWNpZ19jdXJyZW50ID09IFRSVUUgJgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbm9uX2VjaWdfZXZlciA9PSBGQUxTRSAmCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBub25fZWNpZ19jdXJyZW50ID09IEZBTFNFIH4gVFJVRSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUUgfiBGQUxTRSksCiAgICAgICAgICAgICAgIG5vbl9lY2lnX29ubHlfZXZlciA9IGNhc2Vfd2hlbihub25fZWNpZ19ldmVyID09IFRSVUUgJgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVjaWdfZXZlciA9PSBGQUxTRSAmCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZWNpZ19jdXJyZW50ID09IEZBTFNFICYKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5vbl9lY2lnX2N1cnJlbnQgPT0gRkFMU0UgfiBUUlVFLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBUUlVFIH4gRkFMU0UpLAogICAgICAgICBub25fZWNpZ19vbmx5X2N1cnJlbnQgPSBjYXNlX3doZW4obm9uX2VjaWdfY3VycmVudCA9PSBUUlVFICYKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBlY2lnX2V2ZXIgPT0gRkFMU0UgJgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVjaWdfY3VycmVudCA9PSBGQUxTRSB+IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVFJVRSB+IEZBTFNFKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgbm9fdXNlID0gY2FzZV93aGVuKG5vbl9lY2lnX2V2ZXIgPT0gRkFMU0UgJgogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVjaWdfZXZlciA9PSBGQUxTRSAmCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZWNpZ19jdXJyZW50ID09IEZBTFNFICYKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5vbl9lY2lnX2N1cnJlbnQgPT0gRkFMU0UgflRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVFJVRSB+IEZBTFNFKSkgJT4lCiAgICAgICAgICAgICAgICAgICAgbXV0YXRlKEdyb3VwID0gY2FzZV93aGVuKGVjaWdfb25seV9ldmVyID09IFRSVUUgfAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBlY2lnX29ubHlfY3VycmVudCA9PSBUUlVFIH4gIk9ubHkgZS1jaWdhcmV0dGVzIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBub25fZWNpZ19vbmx5X2V2ZXIgPT0gVFJVRSB8CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbm9uX2VjaWdfb25seV9jdXJyZW50ID09IFRSVUUgfiAiT25seSBvdGhlciBwcm9kdWN0cyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbm9fdXNlID09IFRSVUUgfiAiTmVpdGhlciIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVFJVRSB+ICJCb3RoIikpCmBgYAoKIyMjIyB7LnNjcm9sbGFibGV9CmBgYHtyfQpnbGltcHNlKG55dHNfZGF0YSkKYGBgCgojIyMgUXVlc3Rpb24gMSAKCldlIGFyZSBpbnRlcmVzdGVkIGluIGludmVzdGluZyBob3cgdmFwaW5nIHByb2R1Y3QgdXNlIGhhcyBjb21wYXJlZCB3aXRoIG90aGVyIHRvYmFjY28gdXNlLiBGaXJzdCB3ZSB3YW50IHRvIGdldCBhIHNlbnNlIG9mIGhvdyB0b2JhY2NvIHVzZSBoYXMgY2hhbmdlZCBpbiBnZW5lcmFsIHNpbmNlIDIwMTUuIAoKVG8gY3JlYXRlIGEgdmlzdWFsaXp0aW9uIGFib3V0IGhvdyB0b2JhY2NvIHVzYWdlIGhhcyBjaGFuZ2VkIG92ZXIgdGltZSwgd2Ugd2lsbCBmaXJzdCBjb252ZXJ0IHRoZSB1c2FnZSBkYXRhIHRvIGEgbWVhbiB2YWx1ZSBmb3IgZWFjaCB5ZWFyLiBUbyBkbyB0aGlzIHdlIHdpbGwgdXNlIHRoZSBgZ3JvdXBfYnkoKWAgYW5kIGBzdW1tYXJpemVgIGZ1bmN0aW9uIG9mIHRoZSBgZHBseXJgIHBhY2thZ2UuIFRoaXMgd2lsbCBjcmVhdGUgbmV3IHZhcmlhYmxlcyB3aGljaCB3ZSB3aWxsIG5hbWUgYEV2ZXJgIGFuZCBgQ3VycmVudGAgYmFzZWQgb24gdGhlIG1lYW4gb2YgdGhlIHBlcmNlbnRhZ2VzIG9mIGB0b2JhY2NvX2V2ZXJgIGFuZCBgdG9iYWNjb19jdXJyZW50YCBmb3IgZWFjaCB5ZWFyLiAKCmBgYHtyfQoKbnl0c19kYXRhICU+JQogICAgZHBseXI6Omdyb3VwX2J5KHllYXIpICU+JQogICAgZHBseXI6OnN1bW1hcml6ZShFdmVyPShtZWFuKHRvYmFjY29fZXZlciwgbmEucm0gPSBUUlVFKSoxMDApLAogICAgICAgICAgICAgICAgICAgICBDdXJyZW50PShtZWFuKHRvYmFjY29fY3VycmVudCwgbmEucm0gPSBUUlVFKSoxMDApKQoKYGBgCldlIHdpbGwgdXNlIHRoZSBgcGl2b3RfbG9uZ2VyYCBmdW5jdGlvbiB0byB0YWtlIGFsbCBjb2xsdW1ucyBleGNlcHQgeWVhciAoaW4gdGhpcyBjYXNlIHRoZSBgRXZlcmAgYW5kIGBDdXJyZW50YCBjb2x1bW5zKSwgdG8gY3JlYXRlIGEgY29sdW1uIGNhbGxlZCBgVXNlcmAgdGhhdCB3aWxsIGNvbnRhaW4gdGhlIGN1cnJlbnQgY29sdW1uIG5hbWUgaW5mb3JtYXRpb24gYW5kIGEgY29sdW1uIGNhbGxlZCBgUGVyY2VudGFnZSBvZiBzdHVkZW50c2Agd2hpY2ggd2lsbCBjb250YWluIHRoZSBtZWFuIHBlcmNlbnRhZ2UgdmFsdWVzIHRoYXQgd2UganVzdCBjYWxjdWxhdGVkLiBUaGlzIGNvbnZlcnRzIG91ciBkYXRhIGludG8gYSBmb3JtYXQgY2FsbGVkIGxvbmcgZm9ybWF0LgoKYGBge3J9CgpueXRzX2RhdGEgJT4lCiAgICBkcGx5cjo6Z3JvdXBfYnkoeWVhcikgJT4lCiAgICBkcGx5cjo6c3VtbWFyaXplKEV2ZXI9KG1lYW4odG9iYWNjb19ldmVyLCBuYS5ybSA9IFRSVUUpKjEwMCksCiAgICAgICAgICAgICAgICAgICAgIEN1cnJlbnQ9KG1lYW4odG9iYWNjb19jdXJyZW50LCBuYS5ybSA9IFRSVUUpKjEwMCkpJT4lCiAgIHBpdm90X2xvbmdlcihjb2xzID0gLXllYXIsIG5hbWVzX3RvID0gIlVzZXIiLCB2YWx1ZXNfdG8gPSAiUGVyY2VudGFnZSBvZiBzdHVkZW50cyIpCgpgYGAKWW91IG1heSBoYXZlIG5vdGljZWQgdGhhdCBvdXIgZGF0YSBpcyBsb25nZXIgdGhhbiBpdCB1c2VkIHRvIGJlISBIZW5jZSB0aGUgbmFtZSBvZiB0aGUgZnVuY3Rpb24gYHBpdm90X2xvbmdlcigpYC4gRGF0YSBpcyBvZnRlbiBlYXNpZXIgdG8gcGxvdCB3aGVuIGl0IGlzIGluIHRoaXMgZm9ybWF0LgogIApOb3cgd2Ugd2lsbCB1c2UgdGhpcyBkYXRhIHRvIGNyZWF0ZSBhIHBsb3QgdXNpbmcgdGhlIGBnZ3Bsb3QyYCBwYWNrYWdlLiAKClRoZSBmaXJzdCB0aGluZyB3ZSBkbyB0byBjcmVhdGUgYSBwbG90IGlzIHNwZWNpZnkgd2hhdCBkYXRhIHdlIGFyZSB1c2luZyBmb3Igb3VyIHggYXhpcyBhbmQgeSBheGlzIHdpdGggdGhlYGFlcygpYCBhcmd1bWVudCBvZiB0aGUgYGdncGxvdCgpYCBmdW5jdGlvbi4gVGhlbiB3ZSBhZGQgbGF5ZXJzIHRvIG91ciBwbG90IHRoYXQgc3BlY2lmeSB3aGF0IHR5cGUgb2YgcGxvdCB3ZSB3b3VsZCBsaWtlIHRvIGNyZWF0ZS4gV2UgY2FuIHVzZSB0aGUgYGdlb21fbGluZSgpYCBmdW5jdGlvbiB0byBjcmVhdGUgbGluZXMgZm9yIGVhY2ggdHlwZSBvZiB1c2VyLiBXZSBzcGVjaWZ5IHRoYXQgd2Ugd2FudCB0byB1c2UgZGlmZmVyZW50IGxpbmUgdHlwZXMgZm9yIGVhY2ggdXNlciB1c2luZyBgYWVzKClgLiBXZSB3aWxsIGFsc28gYWRkIHBvaW50cyB0byBvdXIgbGluZXMgdXNpbmcgdGhlIGBnZW9tX3BvaW50KClgIGZ1bmN0aW9uLiBXZSBjYW4gYWRkIGFkZGl0aW9uYWwgbGF5ZXJzIHRvIHNwZWNpZnkgY29sb3JzIGFuZCBkZXRhaWxzIGFib3V0IGxhYmVscyBhbmQgbGVnZW5kcyBldGMuCiAgCmBgYHtyfSAgCiAgCnBsb3QxIDwtIG55dHNfZGF0YSAlPiUKICAgIGRwbHlyOjpncm91cF9ieSh5ZWFyKSAlPiUKICAgIGRwbHlyOjpzdW1tYXJpemUoRXZlcj0obWVhbih0b2JhY2NvX2V2ZXIsIG5hLnJtID0gVFJVRSkqMTAwKSwKICAgICAgICAgICAgICAgICAgICAgQ3VycmVudD0obWVhbih0b2JhY2NvX2N1cnJlbnQsIG5hLnJtID0gVFJVRSkqMTAwKSklPiUKICBwaXZvdF9sb25nZXIoY29scyA9IC15ZWFyLCBuYW1lc190byA9ICJVc2VyIiwgdmFsdWVzX3RvID0gIlBlcmNlbnRhZ2Ugb2Ygc3R1ZGVudHMiKSU+JQogICAgZ2dwbG90KGFlcyh4PXllYXIseT1gUGVyY2VudGFnZSBvZiBzdHVkZW50c2ApKSArCiAgICBnZW9tX2xpbmUoYWVzKGxpbmV0eXBlPVVzZXIpKSArIAogIGdlb21fcG9pbnQoc2hvdy5sZWdlbmQgPSBGQUxTRSwgc2l6ZSA9IDMpICsKICAjIHRoaXMgYWxsb3dzIHVzIHRvIGNob29zZSB3aGF0IHR5cGUgb2YgbGluZSB3ZSB3YW50IGZvciBlYWNoIGxpbmUKICBzY2FsZV9saW5ldHlwZV9tYW51YWwodmFsdWVzID0gYygyLDEpKSArCiAgIyB0aGlzIGFsbG93cyB1cyB0byBzcGVjaWZ5IGhvdyB0aGUgeS1heGlzIHNob3VsZCBhcHBlYXIKICAjIHNjYWxlX3lfY29udGludW91cyhicmVha3MgPSBzZXEoMCw2MCxieT0xMCksCiAgIyAgICAgICAgICAgICAgICAgICAgICBsYWJlbHMgPSBzZXEoMCw2MCxieT0xMCksCiAgIyAgICAgICAgICAgICAgICAgICAgICBsaW1pdHMgPSBjKDAsNjApKSArCiAgI3RoaXMgYWRqdXN0cyB0aGUgYmFja2dyb3VuZCBzdHlsZSBvZiB0aGUgcGxvdAogICAgdGhlbWVfbWluaW1hbCgpICsKICAjIHRoaXMgbW92ZXMgdGhlIGxlZ2VuZCB0byB0aGUgYm90dG9tIG9mIHRoZSBwbG90IGFuZCByZW1vdmVzIHRoZSB4IGF4aXMgdGl0bGUKICAgIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iLAogICAgICAgICAgYXhpcy50aXRsZS54ID0gZWxlbWVudF9ibGFuaygpKSArCiAgICBsYWJzKHRpdGxlID0gIkhvdyBoYXMgdG9iYWNjbyB1c2UgdmFyaWVkIG92ZXIgdGhlIHllYXJzPyIsCiAgICAgICAgIHkgPSAiJSBvZiBzdHVkZW50cyIpCgpwbG90MSAKYGBgCgpOaWNlISBOb3cgd2UgY2FuIHNlZSBob3cgb3ZlcmFsbCB0b2JhY2NvIHVzYWdlIGhhcyBjaGFuZ2VkIHNpbmNlIDIwMTcuIEl0IGFwcGVhcnMgdGhhdCB1c2FnZSBoYXMgaW5jcmVhc2VkIGEgYml0IHNpbmNlIDIwMTcsIGFuZCBoYXMgc3VycGFzc2VkIHRoZSBsZXZlbHMgaW4gMjAxNS4KCldoYXQgYWJvdXQgZS1jaWdhcmV0dGUgdXNlPyBIb3cgaGFzIHRoZSB1c2FnZSBvZiBlLWNpZ2FyZXR0ZXMgY2hhbmdlZCBvdmVyIHRpbWU/CgpgYGB7cn0KcGxvdDFhIDwtIG55dHNfZGF0YSAlPiUKICAgIGRwbHlyOjpncm91cF9ieSh5ZWFyKSAlPiUKICAgIGRwbHlyOjpzdW1tYXJpemUoRXZlcj0obWVhbihlY2lnX2V2ZXIsIG5hLnJtID0gVFJVRSkqMTAwKSwKICAgICAgICAgICAgICAgICAgICAgQ3VycmVudD0obWVhbihlY2lnX2N1cnJlbnQsIG5hLnJtID0gVFJVRSkqMTAwKSklPiUKICBwaXZvdF9sb25nZXIoY29scyA9IC15ZWFyLCBuYW1lc190byA9ICJVc2VyIiwgdmFsdWVzX3RvID0gIlBlcmNlbnRhZ2Ugb2Ygc3R1ZGVudHMiKSU+JQogICAgZ2dwbG90KGFlcyh4PXllYXIseT1gUGVyY2VudGFnZSBvZiBzdHVkZW50c2ApKSArCiAgICBnZW9tX2xpbmUoYWVzKGxpbmV0eXBlPVVzZXIpKSArIAogIGdlb21fcG9pbnQoc2hvdy5sZWdlbmQgPSBGQUxTRSwgc2l6ZSA9IDMpICsKICAjIHRoaXMgYWxsb3dzIHVzIHRvIGNob29zZSB3aGF0IHR5cGUgb2YgbGluZSB3ZSB3YW50IGZvciBlYWNoIGxpbmUKICBzY2FsZV9saW5ldHlwZV9tYW51YWwodmFsdWVzID0gYygyLDEpKSArCiAgIyB0aGlzIGFsbG93cyB1cyB0byBzcGVjaWZ5IGhvdyB0aGUgeS1heGlzIHNob3VsZCBhcHBlYXIKICAjIHNjYWxlX3lfY29udGludW91cyhicmVha3MgPSBzZXEoMCw2MCxieT0xMCksCiAgIyAgICAgICAgICAgICAgICAgICAgICBsYWJlbHMgPSBzZXEoMCw2MCxieT0xMCksCiAgIyAgICAgICAgICAgICAgICAgICAgICBsaW1pdHMgPSBjKDAsNjApKSArCiAgI3RoaXMgYWRqdXN0cyB0aGUgYmFja2dyb3VuZCBzdHlsZSBvZiB0aGUgcGxvdAogICAgdGhlbWVfbWluaW1hbCgpICsKICAjIHRoaXMgbW92ZXMgdGhlIGxlZ2VuZCB0byB0aGUgYm90dG9tIG9mIHRoZSBwbG90IGFuZCByZW1vdmVzIHRoZSB4IGF4aXMgdGl0bGUKICAgIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iLAogICAgICAgICAgYXhpcy50aXRsZS54ID0gZWxlbWVudF9ibGFuaygpKSArCiAgICBsYWJzKHRpdGxlID0gIkhvdyBoYXMgZS1jaWdhcmV0dGUgdXNlIHZhcmllZCBvdmVyIHRoZSB5ZWFycz8iLAogICAgICAgICB5ID0gIiUgb2Ygc3R1ZGVudHMiKQoKcGxvdDFhIAoKCgpgYGAKSXQgbG9va3MgbGlrZSB0aGUgc2hhcGUgb2YgdGhlIHBsb3QgaXMgdmVyeSBzaW1pbGFyIHRvIHRvYmFjY28gdXNhZ2Ugb3ZlcmFsbC4gV2Ugc2VlIGEgZG93bndhcmQgdHJlbmQgdW50aWwgMjAxNyB3aGVuIHRoZSByYXRlIG9mIGJvdGggY3VycmVudCBhbmQgZXZlciB1c2VycyBpbmNyZWFzZWQuIFJlY2FsbCB0aGF0IHRoaXMgaXMgaW4gYWdyZWVtZW50IHdpdGggdGhlIGFydGljbGVzIHRoYXQgd2UgcmVmZXJlbmNlZCBlYXJsaWVyLiBXZSBjYW4gc2VlIHRoYXQgdGhlIHNsb3BlIGxvb2tzIHN0ZWVwZXIgZm9yIGUtY2lnYXJldHRlIHVzYWdlIGFzIGNvbXBhcmVkIHRvIGFsbCB0b2JhY2NvIHByb2R1Y3RzIChpbmNsdWRpbmcgZS1jaWdhcmV0dGVzKS4KCk5vdyBsZXQncyBwbG90IGUtY2lnYXJldHRlIHVzYWdlIGFuZCB0b2JhY2NvIHByb2R1Y3RzIHVzYWdlIChiZXNpZGVzIGUtY2lnYXJldHRlcykgdG9nZXRoZXIgb24gdGhlIHNhbWUgcGxvdC4gSW4gdGhpcyBjYXNlIHdlIHdpbGwgbG9vayBhdCBzdHVkZW50cyB3aG8gaGF2ZSBvbmx5IHNtb2tlZCBlaXRoZXIgb2YgZS1jaWdhcmV0dGVzIG9yIG9ubHkgb3RoZXIgdG9iYWNjbyBwcm9kdWN0cyBiZXNpZGVzIGUtY2lnYXJldHRlcy4KCkluIHRoaXMgY2FzZSB3ZSB3aWxsIGhhdmUgZm91ciBncm91cHMgKG9ubHkgZS1jaWdhcmV0dGUgZXZlciB1c2Vycywgb25seSBlLWNpZ2FyZXR0ZSBjdXJyZW50IHVzZXJzLCBvbmx5IG5vbi1lLWNpZ2FyZXR0ZSBldmVyIHRvYmJhY28gdXNlcnMsIGFuZCBvbmx5IG5vbi1lLWNpZ2FyZXR0ZSBjdXJyZW50IHRvYmFjY28gdXNlcnMpIHRvIHBsb3QsIHRoZXJlZm9yZSwgaXQgd291bGQgYmUgdXNlZnVsIHRvIGFkZCBjb2xvciB0byBvdXIgcGxvdC4KCk9uZSBpbXBvcnRhbnQgdGhpbmcgdG8ga2VlcCBpbiBtaW5kIHdoZW4gY3JlYXRpbmcgcGxvdHMsIGlzIHRoYXQgaW5kaXZpZHVhbHMgd2l0aCBjb2xvciBibGluZG5lc3MgbWF5IGhhdmUgYSBkaWZmaWN1bHQgdGltZSBkaXN0aW5ndWlzaGluZyBncm91cHMgd2hlbiBjZXJ0aWFuIGNvbG9yIGNob2NpZXMgYXJlIHVzZWQuIAoKT25lIGdyZWF0IG9wdGlvbiBpcyB0byB1c2UgdGhlIGB2aXJpZGlzYCBwYWNrYWdlLCB3aGljaCBvZmZlcnMgY29sb3IgcGFsYXR0ZXMgd2l0aCBjb2xvcnMgdGhhdCBhcmUgc3RpbGwgZGlzdGluZ3Vpc2hhYmxlICBieSBpbmRpdmlkdWFscyB3aXRoIG1vc3QgZm9ybXMgb2YgY29sb3IgYmxpbmRuZXNzLiAKCiBXZSBjYW4gY2hvb3NlIHdoaWNoIGNvbG9ycyB3ZSB3YW50IHRvIHVzZSBieSB1c2luZyB0aGUgYHNob3dfY29sKClgIGZ1bmN0aW9uIG9mIHRoZSBgc2NhbGVzYCBwYWNrYWdlLgoKSGVyZSBhcmUgc29tZSBjb2xvciBvcHRpb25zOgpgYGB7cn0KCnNjYWxlczo6IHNob3dfY29sKHZpcmlkaXNfcGFsKCkoNikpCnZfY29sb3JzID0gIHZpcmlkaXMoNilbYygxLDQpXQpgYGAKCldlIHdpbGwgc2VsZWN0IHRoZSBmaXJzdCBhbmQgZm91cnRoIGNvbG9ycyBmb3Igb3VyIHBsb3QuIFRvIGFkZCB0aGVzZSBzcGVjaWZpYyBjb2xvcnMgd2Ugd2lsbCB1c2UgdGhlIGBzY2FsZV9jb2xvcl9tYW51YWwoKWAgZnVuY3Rpb24gb2YgdGhlIGBnZ3Bsb3QyYCBwYWNrYWdlLgoKV2Ugd2lsbCBjYWxjdWxhdGUgdGhlIG1lYW4gZXZlciBhbmQgY3VycmVudCB1c2FnZSBwZXJjZW50YWdlcyBmb3Igc3R1ZGVudHMgd2hvIGhhZCBvbmx5IHVzZWQgZS1jaWdhcmV0dGUgb3Igb3RoZXIgdG9iYWNjbyBwcm9kdWN0cyAoYmVzaWRlcyBlLWNpZ2FyZXR0ZXMpIGZvciBlYWNoIHllYXIgYWdhaW4gdXNpbmcgdGhlIGBncm91cF9ieSgpYCBmdW5jdGlvbiBhbmQgdGhlIGBzdW1tYXJpemUoKWAgZnVuY3Rpb24uIFdlIHdpbGwgYWdhaW4gdXNlIHRoZSBgcGl2b3RfbG9uZ2VyYCBmdW5jdGlvbiB0byBjb252ZXJ0IG91ciBkYXRhIHRvIGxvbmcgZm9ybWF0LiBXZSB3aWxsIGFsc28gdXNlIHRoZSBgc2VwYXJhdGUoKWAgZnVuY3Rpb24gb2YgdGhlIGB0aWR5cmAgcGFja2FnZSB0byBjcmVhdGUgdHdvIHZhcmlhYmxlcyBmcm9tIG9uZSBvZiB2YXJpYWJsZXMuIFRoaXMgaXMgZG9uZSBieSBzZXBhcmF0aW5nIGJ5LCBpbiB0aGlzIGNhc2UsIGEgc3BhY2UuIAoKYGBge3J9CgpueXRzX2RhdGEgJT4lCiAgICBkcGx5cjo6Z3JvdXBfYnkoeWVhcikgJT4lCiAgICBkcGx5cjo6c3VtbWFyaXplKCJFdmVyIGUtY2lnIj0obWVhbihlY2lnX29ubHlfZXZlciwgbmEucm0gPSBUUlVFKSoxMDApLAogICAgICAgICAgICAgICAgICAgICAiQ3VycmVudCBlLWNpZyI9KG1lYW4oZWNpZ19vbmx5X2N1cnJlbnQsIG5hLnJtID0gVFJVRSkqMTAwKSwKICAgICAgICAgICAgICAgICAgICAgIkV2ZXIgbm9uLWUtY2lnIiA9KG1lYW4obm9uX2VjaWdfb25seV9ldmVyLCBuYS5ybSA9IFRSVUUpKjEwMCksCiAgICAgICAgICAgICAgICAgICAgICJDdXJyZW50IG5vbi1lLWNpZyI9KG1lYW4obm9uX2VjaWdfb25seV9jdXJyZW50LCBuYS5ybSA9IFRSVUUpKjEwMCkpICU+JQogIHBpdm90X2xvbmdlcihjb2xzID0gLXllYXIsIG5hbWVzX3RvID0gIlVzZXIiLCB2YWx1ZXNfdG8gPSAiUGVyY2VudGFnZSBvZiBzdHVkZW50cyIpICU+JQogIHRpZHlyOjpzZXBhcmF0ZShVc2VyLCBpbnRvID0gYygiVXNlciIsICJQcm9kdWN0IiksIHNlcCA9ICIgIikgJT4lCiAgaGVhZCgpCgpwbG90MWMgPC0gbnl0c19kYXRhICU+JQogICAgZHBseXI6Omdyb3VwX2J5KHllYXIpICU+JQogICAgZHBseXI6OnN1bW1hcml6ZSgiRXZlciBlLWNpZyI9KG1lYW4oZWNpZ19vbmx5X2V2ZXIsIG5hLnJtID0gVFJVRSkqMTAwKSwKICAgICAgICAgICAgICAgICAgICAgIkN1cnJlbnQgZS1jaWciPShtZWFuKGVjaWdfb25seV9jdXJyZW50LCBuYS5ybSA9IFRSVUUpKjEwMCksCiAgICAgICAgICAgICAgICAgICAgICJFdmVyIG5vbi1lLWNpZyIgPShtZWFuKG5vbl9lY2lnX29ubHlfZXZlciwgbmEucm0gPSBUUlVFKSoxMDApLAogICAgICAgICAgICAgICAgICAgICAiQ3VycmVudCBub24tZS1jaWciPShtZWFuKG5vbl9lY2lnX29ubHlfY3VycmVudCwgbmEucm0gPSBUUlVFKSoxMDApKSU+JQogIHBpdm90X2xvbmdlcihjb2xzID0gLXllYXIsIG5hbWVzX3RvID0gIlVzZXIiLCB2YWx1ZXNfdG8gPSAiUGVyY2VudGFnZSBvZiBzdHVkZW50cyIpJT4lCiAgc2VwYXJhdGUoVXNlciwgaW50byA9IGMoIlVzZXIiLCAiUHJvZHVjdCIpLCBzZXAgPSAiICIpICU+JQogICAgZ2dwbG90KGFlcyh4PXllYXIseT1gUGVyY2VudGFnZSBvZiBzdHVkZW50c2AsIGNvbG9yID0gUHJvZHVjdCkpICsKICAgIGdlb21fbGluZShhZXMobGluZXR5cGU9VXNlcikpICsgCiAgZ2VvbV9wb2ludChzaG93LmxlZ2VuZCA9IEZBTFNFLCBzaXplID0gMykgKwogICMgdGhpcyBhbGxvd3MgdXMgdG8gY2hvb3NlIHdoYXQgdHlwZSBvZiBsaW5lIHdlIHdhbnQgZm9yIGVhY2ggbGluZQogIHNjYWxlX2xpbmV0eXBlX21hbnVhbCh2YWx1ZXMgPSBjKDIsMSkpICsKICAjIHRoaXMgYWxsb3dzIHVzIHRvIHNwZWNpZnkgaG93IHRoZSB5LWF4aXMgc2hvdWxkIGFwcGVhcgogICMgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgwLDMwLGJ5PTEwKSwKICAjICAgICAgICAgICAgICAgICAgICAgIGxhYmVscyA9IHNlcSgwLDMwLGJ5PTEwKSwKICAjICAgICAgICAgICAgICAgICAgICAgIGxpbWl0cyA9IGMoMCwzMCkpICsKICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gdl9jb2xvcnMpKwogICN0aGlzIGFkanVzdHMgdGhlIGJhY2tncm91bmQgc3R5bGUgb2YgdGhlIHBsb3QKICAgIHRoZW1lX21pbmltYWwoKSArCiAgIyB0aGlzIG1vdmVzIHRoZSBsZWdlbmQgdG8gdGhlIGJvdHRvbSBvZiB0aGUgcGxvdCBhbmQgcmVtb3ZlcyB0aGUgeCBheGlzIHRpdGxlCiAgICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIiwKICAgICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfYmxhbmsoKSkgKwogICAgbGFicyh0aXRsZSA9ICJIb3cgaGFzIGUtY2lnYXJldHRlIHVzZSBhbmQgdG9iYWNjbyB1c2UgKGJlc2lkZXMgZS1jaWdhcmV0dGVzKSB2YXJpZWQgb3ZlciB0aW1lPyIsCiAgICAgICAgIHkgPSAiJSBvZiBzdHVkZW50cyIpCgpwbG90MWMKCmBgYAoKV2UgY2FuIHNlZSBmcm9tIHRoaXMgcGxvdCB0aGF0IHRoZSBwZXJjZW50YWdlIG9mIHN0dWRlbnRzIHdobyBoYWQgb25seSBldmVyIHRyaWVkIChvciBjdXJyZW50bHkgdXNlZCkgZS1jaWdhcmV0dGVzIHdhcyBncmVhdGx5IGluY3JlYXNpbmcgc2luY2UgMjAxNywgd2hpbGUgaW4gY29udHJhc3QgdGhlIHBlcmNlbnRhZ2Ugb2Ygc3R1ZGVudHMgd2hvIGhhZCBvbmx5IGV2ZXIgdHJpZWQgbm9uLWUtY2lnYXJldHRlIHRvYmFjY28gcHJvZHVjdHMgd2FzICBkaW1pbmlzaGluZyBvdmVyIHRpbWUuIEluIGZhY3QsIHdlIGNhbiBzZWUgdGhhdCBpbiAyMDE5IHRoZSBwZXJjZW50YWdlIG9mIHN0dWRlbnRzIHdobyB3ZXJlIGN1cnJlbnQgZS1jaWdhcmV0dGUgdXNlcnMgc3VycGFzc2VkIHRoZSBwZXJjZW50YWdlIHRoYXQgaGFkIHRyaWVkIGEgbm9uLWUtY2lnYXJldHRlIHByb2R1Y3QgZXZlbiBqdXN0IG9uY2UuIAoKV2Ugd2lsbCBleHBsb3JlIHRoZSByZWxhaXRvbnNoaXAgYmV0d2VlbiBlLWNpZ2FyZXR0ZSB1c2FnZSBhbmQgb3RoZXIgdG9iYWNjbyBwcm9kdWN0cyBhIGJpdCBsYXRlciBpbiB0aGUgY2FzZSBzdHVkeS4KCgpSZWNhbGwgdGhhdCB3ZSBtYWRlIGEgdmFyaWFibGUgY2FsbGVkIGBHcm91cGAgdGhhdCBpZGVudGlmaWVkIHN0dWRlbnRzIHdobyB1c2VkIGVpdGhlciBqdXN0IGUtY2lnYXJldHRlIHByb2R1Y3RzLCBqdXN0IG90aGVyIHRvYmFjY28gcHJvZHVjdHMgKGJlc2lkZXMgZS1jaWdhcmV0dGVzKSwgb3Igc3R1ZGVudHMgd2hvIHVzZWQgYm90aCBlLWNpZ2FyZXR0ZXMgYW5kIHNvbWUgb3RoZXIgdHlwZSBvZiB0b2JhY2NvIHByb2R1Y3QuCgpgYGB7cn0Kbnl0c19kYXRhICU+JQogIGNvdW50KEdyb3VwKQpgYGAKCldlIHdpbGwgbm93IG1ha2UgYSBwbG90IG92ZXIgdGltZSBvZiBlYWNoIG9mIHRoZXNlIGdyb3Vwcy4KCmBgYHtyfQpueXRzX2RhdGEgJT4lCiAgICBjb3VudChHcm91cCwgeWVhcikgJT4lCiAgICBoZWFkKCkKCgpueXRzX2RhdGEgJT4lCiAgICBjb3VudChHcm91cCwgeWVhcikgJT4lCiAgZ2dwbG90KGFlcyh4ID0geWVhciwgeSA9IG4sIGZpbGwgPSBHcm91cCkpICsKICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IikKCgoKCmBgYAoKIyMjIFF1ZXN0aW9uIDIKCk5vdyB3ZSB3YW50IHRvIGxvb2sgaG93IGUtY2lnYXJldHRlIHNtb2tpbmcgcmF0ZXMgY29tcGFyZSBiZXR3ZWVuIG1hbGVzIGFuZCBmZW1hbGVzIGFjcm9zcyB0aW1lLiAKCgpXZSB3aWxsIGNhbGN1bGF0ZSB0aGUgbWVhbiBlLWNpZ2FyZXR0ZSBldmVyIGFuZCBjdXJyZW50IHBlcmNlbnRhZ2VzIGZvciBlYWNoIHllYXIgYW5kIHNleCBjYXRlZ29yeSBhZ2FpbiB1c2luZyB0aGUgYGdyb3VwX2J5KClgIGZ1bmN0aW9uIGFuZCB0aGUgYHN1bW1hcml6ZSgpYCBmdW5jdGlvbi4gTm90aWNlLCB0aGF0IGluIHRoaXMgY2FzZSB3ZSBhcmUgZ3JvdXBpbmcgYnkgdHdvIHZhcmlhYmxlcyBieSBzaW1wbHkgdXNpbmcgYGdyb3VwX2J5KHllYXIsIFNleClgLiBXZSB3aWxsIGFnYWluIHVzZSB0aGUgYHBpdm90X2xvbmdlcmAgZnVuY3Rpb24gdG8gY29udmVydCBvdXIgZGF0YSB0byBsb25nIGZvcm1hdC4KCmBgYHtyfQoKbnl0c19kYXRhICU+JQogICAgIGdyb3VwX2J5KHllYXIsIFNleCkgJT4lCiAgICAgc3VtbWFyaXplKEV2ZXI9KG1lYW4oRUVMQ0lHVCwgbmEucm0gPSBUUlVFKSoxMDApLAogICAgICAgICAgICAgICBDdXJyZW50PShtZWFuKENFTENJR1QsIG5hLnJtID0gVFJVRSkqMTAwKSklPiUKICAgICAjZmlsdGVyKCFpcy5uYShTZXgpKSAlPiUKICAgICBwaXZvdF9sb25nZXIoY29scyA9IEV2ZXI6Q3VycmVudCwgCiAgICAgICAgICAgICAgIG5hbWVzX3RvID0gIlVzZXIiLCAKICAgICAgICAgICAgICAgdmFsdWVzX3RvID0gIlBlcmNlbnRhZ2Ugb2Ygc3R1ZGVudHMiKSAlPiUKICAgICBoZWFkKCkKCnBsb3QyIDwtIG55dHNfZGF0YSAlPiUKICAgICBncm91cF9ieSh5ZWFyLCBTZXgpICU+JQogICAgIHN1bW1hcml6ZShFdmVyPShtZWFuKEVFTENJR1QsIG5hLnJtID0gVFJVRSkqMTAwKSwKICAgICAgICAgICAgICAgQ3VycmVudD0obWVhbihDRUxDSUdULCBuYS5ybSA9IFRSVUUpKjEwMCkpJT4lCiAgICAjIGZpbHRlcighaXMubmEoU2V4KSkgJT4lCiAgICAgcGl2b3RfbG9uZ2VyKGNvbHMgPSBFdmVyOkN1cnJlbnQsIAogICAgICAgICAgICAgICBuYW1lc190byA9ICJVc2VyIiwgCiAgICAgICAgICAgICAgIHZhbHVlc190byA9ICJQZXJjZW50YWdlIG9mIHN0dWRlbnRzIikgJT4lCiAgICBnZ3Bsb3QoYWVzKHggPSB5ZWFyLHkgPWBQZXJjZW50YWdlIG9mIHN0dWRlbnRzYCwgY29sb3IgPSBTZXgpKSArCiAgICBnZW9tX2xpbmUoYWVzKGxpbmV0eXBlID0gVXNlcikpICsgCiAgICBnZW9tX3BvaW50KHNob3cubGVnZW5kID0gRkFMU0UsIHNpemUgPSAzKSArCiAgICBzY2FsZV9saW5ldHlwZV9tYW51YWwodmFsdWVzID0gYygyLDEpKSArCiAgICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID12X2NvbG9ycykrCiAgICB0aGVtZV9taW5pbWFsKCkgKwogICAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIsCiAgICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDkwKSwKICAgICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfYmxhbmsoKSkgKwogICAgbGFicyh0aXRsZSA9ICJIb3cgZG8gdmFwaW5nIHJhdGVzIGNvbXBhcmUgYmV0d2VlbiBtYWxlcyBhbmQgZmVtYWxlcz8iLAogICAgICAgICBzdWJ0aXRsZSA9ICJDdXJyZW50IGFuZCBldmVyIHVzZXJzIGJ5IHNleCIsCiAgICAgICAgIHkgPSAiJSBvZiBzdHVkZW50cyIpCgpwbG90MgpgYGAKCkl0IGxvb2tzIGxpa2UgdGhlIHJhdGVzIGFyZSBmYWlybHkgc2ltaWxhciBiZXR3ZWVuIHRoZSBzZXhlcywgaG93ZXZlciB0aGUgcmF0ZSBmb3IgbWFsZXMgYXBwZWFycyB0byBiZSBjb25zaXN0ZW50bHkgaGlnaGVyIGFjcm9zcyB0aW1lLgoKCiMjIyBRdWVzdGlvbiAzCgpXZSBhcmUgYWxzbyBpbnRlcmVzdGVkIGluIHdoYXQgdmFwaW5nIGJyYW5kcyBhbmQgZmxhdm9ycyBhcHBlYXIgdG8gYmUgdXNlZCB0aGUgbW9zdCBmcmVxdWVudGx5LiBPbmx5IHRoZSAyMDE5IGRhdGEgaGFzIHRoaXMgaW5mb3JtYXRpb24uIFRoZXJlZm9yZSwgd2Ugd2lsbCBmaWx0ZXIgZm9yIGp1c3QgdGhpcyB5ZWFyIHVzaW5nIHRoZSBgZmlsdGVyKClgIGZ1bmN0aW9uIG9mICB0aGUgYGRwbHlyYCBwYWNrYWdlLiBXZSB3aWxsIHVzZSB0aGUgYHN1bW1hcml6ZSgpYCBmdW5jdGlvbiBzbGlnaHRseSBkaWZmZXJlbnRseSB0aGlzIHRpbWUsIHRvIGNhbGN1bGF0ZSB0aGUgdG90YWwgbnVtYmVyIG9mIHN0dWRlbnRzIHVzaW5nIGVhY2ggYnJhbmQgYG5gIHVzaW5nIHRoZSBgbigpYCBmdW5jdGlvbiBhbmQgdGhlIGBzdW0oKWAgZnVuY3Rpb24gdG8gY2FsY3VsYXRlIHRoZSBwZXJjZW50IGZvciBlYWNoIGJyYW5kIGJhc2VkIG9uIHRoZSBjb3VudHMuIAoKCmBgYHtyfQoKIG55dHNfZGF0YSAlPiUKICAgIGZpbHRlcih5ZWFyPT0yMDE5KSAlPiUKICAgIGdyb3VwX2J5KGJyYW5kX2VjaWcpICU+JQogICAgZmlsdGVyKCFpcy5uYShicmFuZF9lY2lnKSkgJT4lCiAgc3VtbWFyaXplKG4gPSBuKCkpICU+JQogICAgbXV0YXRlKHRvdGFsID0gc3VtKG4pLAogICAgICAgICAgIFBlcmNlbnQgPSBuKjEwMC90b3RhbCkgJT4lCiAgICBtdXRhdGUoYnJhbmRfZWNpZyA9IGZjdF9yZW9yZGVyKGJyYW5kX2VjaWcsIGRlc2MoUGVyY2VudCkpKQoKCnBsb3QzIDwtIG55dHNfZGF0YSAlPiUKICAgIGZpbHRlcih5ZWFyPT0yMDE5KSAlPiUKICAgIGdyb3VwX2J5KGJyYW5kX2VjaWcpICU+JQogICAgZmlsdGVyKCFpcy5uYShicmFuZF9lY2lnKSkgJT4lCiAgc3VtbWFyaXplKG4gPSBuKCkpICU+JQogICAgbXV0YXRlKHRvdGFsID0gc3VtKG4pLAogICAgICAgICAgIFBlcmNlbnQgPSBuKjEwMC90b3RhbCkgJT4lCiAgICBtdXRhdGUoYnJhbmRfZWNpZyA9IGZjdF9yZW9yZGVyKGJyYW5kX2VjaWcsIGRlc2MoUGVyY2VudCkpKSAlPiUKICAgIGdncGxvdChhZXMoeD1icmFuZF9lY2lnLHk9UGVyY2VudCwgZmlsbD1icmFuZF9lY2lnKSkgKwogICAgZ2VvbV9iYXIoc3RhdD0iaWRlbnRpdHkiLCBjb2xvciA9ICJibGFjayIpICsKICAgIHRoZW1lX21pbmltYWwoKSArCiAgICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAibm9uZSIsCiAgICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplPTEwKSwKICAgICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfYmxhbmsoKSkgKwogICAgbGFicyh0aXRsZSA9ICJXaGF0IHZhcGluZyBicmFuZHMgYXBwZWFyIHRvIGJlIHVzZWQgdGhlIG1vc3QgZnJlcXVlbnRseT8iLAogICAgICAgICBzdWJ0aXRsZSA9ICJCcmFuZCBvZiBlLWNpZ2FyZXR0ZSBtb3N0IGZyZXF1ZW50bHkgdXNlZCBpbiB0aGUgbGFzdCAzMCBkYXlzICgyMDE5KSIsCiAgICAgICAgIHkgPSAiJSBvZiBlLWNpZ2FyZXR0ZSB1c2VycyByZXNwb25kaW5nIikKCnBsb3QzCmBgYAoKSnV1bCBhcHBlYXJzIHRvIGJlIHRoZSBtb3N0IHdpZGVseSB1c2VkIGJyYW5kLiBUaGlzIGlzIGluIGFncmVlbWVudCB3aXRoIGEgcmVjZW50IFthcnRpY2xlXShodHRwczovL3RvYmFjY29jb250cm9sLmJtai5jb20vY29udGVudC90b2JhY2NvY29udHJvbC8yOC8yLzE0Ni5mdWxsLnBkZik6CgpgYGB7ciwgZWNobz1GQUxTRSwgZmlnLmNhcD0iSHVhbmcgSiwgRHVhbiBaLCBLd29rIEosIGV0IGFsLiBUb2IgQ29udHJvbCAyMDE5OzI4OjE0NuKAkzE1MS4iLCBvdXQud2lkdGggPSAnMTAwJSd9CmtuaXRyOjppbmNsdWRlX2dyYXBoaWNzKGhlcmU6OmhlcmUoImltZyIsICJIdWFuZ0pfRHVhblpfS3dva0pfZXRfYWxfVG9iYWNjb0NvbnRyb2xfRmlndXJlMS5wbmciKSkKYGBgCgpXZSBhcmUgYWxzbyBpbnRlcmVzdGVkIGluIGhvdyB0aGUgdXNhZ2Ugb2YgZGlmZmVyZW50IGZsYXZvcnMgaGFzIGNoYW5nZWQgb3ZlciB0aGUgeWVhcnMuIApUbyBldmFsdWF0ZSB0aGlzIHdlIHdpbGwgY2FsY3VsYXRlIHRoZSBwcmVjZW50YWdlIG9mIHN0dWRlbnRzIHVzaW5nIGVhY2ggZmxhdm9yIGVhY2ggeWVhciAtIHRoaXMgaW5jbHVkZXMgdXNhZ2Ugb2YgYW55IHR5cGUgb2YgZmxhdm9yZWQgdG9iYWNjbyBwcm9kdWN0LgoKYGBge3J9CnBsb3Q0IDwtIG55dHNfZGF0YSAlPiUKICBmaWx0ZXIoeWVhciE9MjAxNSkgJT4lCiAgZ3JvdXBfYnkoeWVhcikgJT4lCnN1bW1hcml6ZShNZW50aG9sPShtZWFuKG1lbnRob2wsIG5hLnJtID0gVFJVRSkqMTAwKSwKICAgICAgICAgYENsb3ZlIG9yIFNwaWNlYD0obWVhbihjbG92ZV9zcGljZSwgbmEucm0gPSBUUlVFKSoxMDApLAogICAgICAgICAgICAgIGBGcnVpdGA9KG1lYW4oZnJ1aXQsIG5hLnJtID0gVFJVRSkqMTAwKSwKICAgICAgICAgICAgICBgQ2hvY29sYXRlYD0obWVhbihjaG9jb2xhdGUsIG5hLnJtID0gVFJVRSkqMTAwKSwKICAgICAgICAgICAgICBgQWxjb2hvbGljIERyaW5rYD0obWVhbihhbGNvaG9saWNfZHJpbmssIG5hLnJtID0gVFJVRSkqMTAwKSwKICAgICAgICAgICAgICBgQ2FuZHkvRGVzc2VydHMvU3dlZXRzYD0obWVhbihjYW5keV9kZXNzZXJ0X3N3ZWV0cywgbmEucm0gPSBUUlVFKSoxMDApKSAlPiUKICBwaXZvdF9sb25nZXIoY29scyA9IC15ZWFyLCBuYW1lc190byA9ICJGbGF2b3IiLCB2YWx1ZXNfdG8gPSAiUGVyY2VudGFnZSBvZiBzdHVkZW50cyIpICU+JQoKIGdncGxvdChhZXMoeSA9IGBQZXJjZW50YWdlIG9mIHN0dWRlbnRzYCwgCiAgICAgICAgICAgIHggPSB5ZWFyLCAKICAgICAgICAgICAgZmlsbCA9IHJlb3JkZXIoRmxhdm9yLCBgUGVyY2VudGFnZSBvZiBzdHVkZW50c2ApKSkrCiBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IiwgcG9zaXRpb24gPSAiZG9kZ2UiLCBjb2xvciA9ICJibGFjayIpKwogIHNjYWxlX2ZpbGxfdmlyaWRpcyhkaXNjcmV0ZT1UUlVFKSsKICB0aGVtZV9taW5pbWFsKCkgKwogIGd1aWRlcyhmaWxsPWd1aWRlX2xlZ2VuZCgiRmxhdm9yIikpKwogIGxhYnModGl0bGUgPSAiV2hhdCBmbGF2b3JzIGFwcGVhciB0byBiZSB1c2VkIHRoZSBtb3N0IGZyZXF1ZW50bHk/IiwKICAgICAgIHN1YnRpdGxlID0gIkZsYXZvcnMgb2YgdG9iYWNjbyBwcm9kdWN0cyB1c2VkIGluIHRoZSBwYXN0IDMwIGRheXMiKQoKcGxvdDQgCmBgYAoKRnJvbSB0aGlzIHBsb3QsIHdlIGNhbiBzZWUgdGhhdCBmcnVpdCBmbGF2b3JzIGFyZSB0aGUgbW9zdCB3aWRlbHkgdXNlZCBwcm9kdWN0cywgZm9sbG93ZWQgYnkgbWVudGhvbCBvciBtaW50IGZsYXZvcmVkIHByb2R1Y3RzLiAKCldlIHdpbGwgbm93IGxvb2sgc3BlY2lmaWNpYWxseSBhdCB0aGUgdXNhZ2Ugb2YgZmxhdm9yZWQgZS1jaWdhcmV0dGUgcHJvZHVjdHMgdnMgb3RoZXIgZmxhdm9yZWQgdG9iYWNjbyBwcm9kdWN0cy4gCgpSZWNhbGwgdGhhdCB3ZSBtYWRlIGEgdmFyaWFibGUgY2FsbGVkIGBHcm91cGAgdGhhdCBpZGVudGlmaWVkIHN0dWRlbnRzIHdobyB1c2VkIGVpdGhlciBqdXN0IGUtY2lnYXJldHRlIHByb2R1Y3RzLCBqdXN0IG90aGVyIHRvYmFjY28gcHJvZHVjdHMgKGJlc2lkZXMgZS1jaWdhcmV0dGVzKSwgb3Igc3R1ZGVudHMgd2hvIHVzZWQgYm90aCBlLWNpZ2FyZXR0ZXMgYW5kIHNvbWUgb3RoZXIgdHlwZSBvZiB0b2JhY2NvIHByb2R1Y3QuCgpgYGB7cn0KY291bnQobnl0c19kYXRhLCBHcm91cCkKYGBgCgpUaGUgbWFqb3JpdHkgb2YgdGhlIHN0dWRlbnRzIHRoYXQgdXNlIHRvYmFjY28gdXNlIGJvdGggZS1jaWdhcmV0dGVzIGFuZCBvdGhlciBwcm9kdWN0cy4KCmBgYHtyfQpwbG90NSA8LSBueXRzX2RhdGEgJT4lCiAgZmlsdGVyKHllYXIgIT0gMjAxNSkgJT4lCiAgIyBmaWx0ZXIobWVudGhvbCA9PSBUUlVFfAogICMgICAgICAgICAgY2xvdmVfc3BpY2UgPT0gVFJVRXwKICAjICAgICAgICAgIGZydWl0ID09IFRSVUV8CiAgIyAgICAgICAgICBjaG9jb2xhdGUgPT0gVFJVRXwKICAjICAgICAgICAgIGFsY29ob2xpY19kcmluayA9PSBUUlVFfAogICMgICAgICAgICAgY2FuZHlfZGVzc2VydF9zd2VldHMgPT0gVFJVRXwKICAjICAgICAgICAgIG90aGVyID09IFRSVUUpICU+JQojIHdlIHdhbnQgdG8gcmVtb3ZlIHN0dWRlbnRzIHRoYXQgdXNlZCBib3RoIGUtY2lnYXJldHRlIGFuZCBvdGhlciB0b2JhY2NvIHByb2R1Y3RzCiAgZmlsdGVyKEdyb3VwICE9ICJCb3RoIikgJT4lCiAgZ3JvdXBfYnkoeWVhciwgR3JvdXApICU+JQpzdW1tYXJpemUoTWVudGhvbD0obWVhbihtZW50aG9sLCBuYS5ybSA9IFRSVUUpKjEwMCksCiAgICAgICAgIGBDbG92ZSBvciBTcGljZWA9KG1lYW4oY2xvdmVfc3BpY2UsIG5hLnJtID0gVFJVRSkqMTAwKSwKICAgICAgICAgIEZydWl0PShtZWFuKGZydWl0LCBuYS5ybSA9IFRSVUUpKjEwMCksCiAgICAgICAgICBDaG9jb2xhdGU9KG1lYW4oY2hvY29sYXRlLCBuYS5ybSA9IFRSVUUpKjEwMCksCiAgICAgICAgICBgQWxjb2hvbGljIERyaW5rYD0obWVhbihhbGNvaG9saWNfZHJpbmssIG5hLnJtID0gVFJVRSkqMTAwKSwKICAgICAgICAgIGBDYW5keS9EZXNzZXJ0cy9Td2VldHNgPShtZWFuKGNhbmR5X2Rlc3NlcnRfc3dlZXRzLCBuYS5ybSA9IFRSVUUpKjEwMCksCiAgICAgICAgICBPdGhlciA9IChtZWFuKG90aGVyLCBuYS5ybSA9IFRSVUUpKjEwMCksCiAgICAgICAgICBSZXNwb25kZW50cz1uKCkpICU+JQogICNjb252ZXJ0aW5nIGFsbCBjb2x1bW5zIGJldHdlZW4gYW5kIGluY2x1ZGluZyBNZW50aG9sIGFuZCBPdGhlciB0byBvbmUgY29sdW1uIGNhbGxlZCBGbGF2b3IKICBwaXZvdF9sb25nZXIoY29scyA9IE1lbnRob2w6T3RoZXIsIG5hbWVzX3RvID0gIkZsYXZvciIsIHZhbHVlc190byA9ICJQZXJjZW50YWdlIG9mIHN0dWRlbnRzIikgJT4lCiAgZmlsdGVyKCFpcy5uYShgUGVyY2VudGFnZSBvZiBzdHVkZW50c2ApLAogICAgICAgICBGbGF2b3IhPSJPdGhlciIpICU+JQogIGdyb3VwX2J5KEZsYXZvcikgJT4lCiAgbXV0YXRlKGFmZmlybWF0aXZlPShSZXNwb25kZW50cyAqIGBQZXJjZW50YWdlIG9mIHN0dWRlbnRzYCkvMTAwKSAlPiUKICBtdXRhdGUoZmxhdm9yX21lYW4gPSBzdW0oYWZmaXJtYXRpdmUpL3N1bShSZXNwb25kZW50cykpICU+JQogIHVuZ3JvdXAoKSAlPiUKICBtdXRhdGUoZmxhdm9yX21lYW5fcmFuayA9IGRlbnNlX3JhbmsoZmxhdm9yX21lYW4pLAogICAgICAgICBGbGF2b3IgPSBmY3RfcmVvcmRlcihGbGF2b3IsIGZsYXZvcl9tZWFuX3JhbmspKSAlPiUKICBnZ3Bsb3QoYWVzKHg9eWVhciwgeT1gUGVyY2VudGFnZSBvZiBzdHVkZW50c2AsIGNvbG9yPUdyb3VwKSkgKwogIGZhY2V0X3dyYXAoLn5GbGF2b3IsbmNvbD0zKSArCiAgZ2VvbV9saW5lKCkgKyAKICBnZW9tX3BvaW50KHNob3cubGVnZW5kID0gRkFMU0UpICsgCiAgdGhlbWVfbWluaW1hbCgpICsKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIiwKICAgICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDkwKSkgKyAKICBsYWJzKHRpdGxlID0gIkFtb25nIHVzZXJzIG9mIG9ubHkgb25lIHR5cGUgb2YgcHJvZHVjdCwgd2hhdCB2YXBpbmcgZmxhdm9ycyBhcHBlYXIgdG8gYmUgdXNlZCB0aGUgbW9zdCBmcmVxdWVudGx5PyIsCiAgICAgICBzdWJ0aXRsZSA9ICJQZXJjZW50IHJlcG9ydGluZyBvbmx5IGUtY2lnYXJldHRlIHVzZSB2cyBvbmx5IG90aGVyIG5pY290aW5lIHByb2R1Y3QgdXNlIikKCnBsb3Q1CmBgYAoKIyMjIFF1ZXN0aW9uIDQKCkhhdmUgdmFwaW5nIHJhdGVzIHBvc3NpYmx5IGluZmx1ZW5jZWQgdG9iYWNjby9uaWNvdGluZSB1c2U/CgpgYGB7cn0KcGxvdDYgPC0gbnl0c19kYXRhICU+JQogICAgZ3JvdXBfYnkoeWVhcikgJT4lCiAgc3VtbWFyaXplKEVDSUdUX3llYXI9KHN1bShFQ0lHVCwgbmEucm0gPSBUUlVFKSoxMDApLwogICAgICAgICAgICAgICAgc3VtKCFpcy5uYShFQ0lHVCkpLAogICAgICAgICAgICAgIEVFTENJR1RfeWVhcj0oc3VtKEVFTENJR1QsIG5hLnJtID0gVFJVRSkqMTAwKS8KICAgICAgICAgICAgICAgIHN1bSghaXMubmEoRUVMQ0lHVCkpLAogICAgICAgICAgICAgIENDSUdUX3llYXI9KHN1bShDQ0lHVCwgbmEucm0gPSBUUlVFKSoxMDApLwogICAgICAgICAgICAgICAgc3VtKCFpcy5uYShDQ0lHVCkpLAogICAgICAgICAgICAgIENFTENJR1RfeWVhcj0oc3VtKENFTENJR1QsIG5hLnJtID0gVFJVRSkqMTAwKS8KICAgICAgICAgICAgICAgIHN1bSghaXMubmEoQ0VMQ0lHVCkpKSAlPiUKICAgIHJlbmFtZSgiQ2lnYXJldHRlcywgRXZlciI9RUNJR1RfeWVhciwKICAgICAgICAgICAiRS1jaWdhcmV0dGVzLCBFdmVyIj1FRUxDSUdUX3llYXIsCiAgICAgICAgICAgIkNpZ2FyZXR0ZXMsIEN1cnJlbnQiPUNDSUdUX3llYXIsCiAgICAgICAgICAgIkUtY2lnYXJldHRlcywgQ3VycmVudCI9Q0VMQ0lHVF95ZWFyKSAlPiUKICBwaXZvdF9sb25nZXIoY29scz0gLXllYXIsIG5hbWVzX3RvID0gIkNhdGVnb3J5IiwgdmFsdWVzX3RvID0gIlBlcmNlbnRhZ2Ugb2Ygc3R1ZGVudHMiKSU+JQogICAgbXV0YXRlKFVzZXIgPSBjYXNlX3doZW4oQ2F0ZWdvcnkgPT0gIkNpZ2FyZXR0ZXMsIEV2ZXIiIH4gIkV2ZXIiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgQ2F0ZWdvcnkgPT0gIkUtY2lnYXJldHRlcywgRXZlciIgfiAiRXZlciIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBDYXRlZ29yeSA9PSAiQ2lnYXJldHRlcywgQ3VycmVudCIgfiAiQ3VycmVudCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBDYXRlZ29yeSA9PSAiRS1jaWdhcmV0dGVzLCBDdXJyZW50IiB+ICJDdXJyZW50IikpICU+JQogICAgbXV0YXRlKFByb2R1Y3QgPSBjYXNlX3doZW4oQ2F0ZWdvcnkgPT0gIkNpZ2FyZXR0ZXMsIEV2ZXIiIH4gIkNpZ2FyZXR0ZXMiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgQ2F0ZWdvcnkgPT0gIkUtY2lnYXJldHRlcywgRXZlciIgfiAiRS1jaWdhcmV0dGVzIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIENhdGVnb3J5ID09ICJDaWdhcmV0dGVzLCBDdXJyZW50IiB+ICJDaWdhcmV0dGVzIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIENhdGVnb3J5ID09ICJFLWNpZ2FyZXR0ZXMsIEN1cnJlbnQiIH4gIkUtY2lnYXJldHRlcyIpKSAlPiUKICAgIGdncGxvdChhZXMoeD15ZWFyLHk9YFBlcmNlbnRhZ2Ugb2Ygc3R1ZGVudHNgLCBjb2xvcj1Qcm9kdWN0LCBsaW5ldHlwZT1Vc2VyKSkgKwogICAgZ2VvbV9saW5lKCkgKyAKICBnZW9tX3BvaW50KHNob3cubGVnZW5kID0gRkFMU0UpICsKICBzY2FsZV9saW5ldHlwZV9tYW51YWwodmFsdWVzID0gYygyLDEpKSArCiAgICB0aGVtZV9taW5pbWFsKCkgKwogICAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIsCiAgICAgICAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X2JsYW5rKCkpICsKICAgIGxhYnModGl0bGUgPSAiSG93IGRvZXMgZS1jaWdhcmV0dGUgdXNlIGNvbXBhcmUgdG8gY2lnYXJldHRlIHVzZT8iLAogICAgICAgICBzdWJ0aXRsZSA9ICJDdXJyZW50IGFuZCBldmVyIHVzZXJzIG9mIGUtY2lnYXJldHRlcyBhbmQgY2lnYXJldHRlcyIsCiAgICAgICAgIHkgPSAiJSBvZiBzdHVkZW50cyIpCgpwbG90NgpgYGAKCmBgYHtyfQpwbG90NyA8LSBueXRzX2RhdGEgJT4lCiAgICBncm91cF9ieSh5ZWFyKSAlPiUKICBzdW1tYXJpemUoZWNpZ19ldmVyX3llYXI9KHN1bShlY2lnX2V2ZXIsIG5hLnJtID0gVFJVRSkqMTAwKS8KICAgICAgICAgICAgICAgIHN1bSghaXMubmEoZWNpZ19ldmVyKSksCiAgICAgICAgICAgICAgZWNpZ19jdXJyZW50X3llYXI9KHN1bShlY2lnX2N1cnJlbnQsIG5hLnJtID0gVFJVRSkqMTAwKS8KICAgICAgICAgICAgICAgIHN1bSghaXMubmEoZWNpZ19jdXJyZW50KSksCiAgICAgICAgICAgICAgbm9uX2VjaWdfZXZlcl95ZWFyPShzdW0obm9uX2VjaWdfZXZlciwgbmEucm0gPSBUUlVFKSoxMDApLwogICAgICAgICAgICAgICAgc3VtKCFpcy5uYShub25fZWNpZ19ldmVyKSksCiAgICAgICAgICAgICAgbm9uX2VjaWdfY3VycmVudF95ZWFyPShzdW0obm9uX2VjaWdfY3VycmVudCwgbmEucm0gPSBUUlVFKSoxMDApLwogICAgICAgICAgICAgICAgc3VtKCFpcy5uYShub25fZWNpZ19jdXJyZW50KSkpICU+JQogICAgcGl2b3RfbG9uZ2VyKGNvbHMgPSAteWVhciwgbmFtZXNfdG8gPSAiQ2F0ZWdvcnkiLCB2YWx1ZXNfdG8gPSAiUGVyY2VudGFnZSBvZiBzdHVkZW50cyIpICU+JQogICAgbXV0YXRlKFVzZXIgPSBjYXNlX3doZW4oQ2F0ZWdvcnkgPT0iZWNpZ19ldmVyX3llYXIiIH4gIkV2ZXIiLAogICAgICAgICAgICAgICAgICAgICAgICAgICBDYXRlZ29yeSA9PSJub25fZWNpZ19ldmVyX3llYXIiIH4gIkV2ZXIiLAogICAgICAgICAgICAgICAgICAgICAgICAgICBDYXRlZ29yeSA9PSJlY2lnX2N1cnJlbnRfeWVhciIgfiAiQ3VycmVudCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIENhdGVnb3J5ID09Im5vbl9lY2lnX2N1cnJlbnRfeWVhciIgfiAiQ3VycmVudCIpKSAlPiUKICAgIG11dGF0ZShQcm9kdWN0ID0gY2FzZV93aGVuKENhdGVnb3J5ID09ImVjaWdfZXZlcl95ZWFyIiB+ICJFLWNpZ2FyZXR0ZXMiLAogICAgICAgICAgICAgICAgICAgICAgICAgICBDYXRlZ29yeSA9PSJub25fZWNpZ19ldmVyX3llYXIiIH4gIk90aGVyIHByb2R1Y3RzIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgQ2F0ZWdvcnkgPT0iZWNpZ19jdXJyZW50X3llYXIiIH4gIkUtY2lnYXJldHRlcyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIENhdGVnb3J5ID09Im5vbl9lY2lnX2N1cnJlbnRfeWVhciIgfiAiT3RoZXIgcHJvZHVjdHMiKSkgJT4lCiAgICBmaWx0ZXIoVXNlcj09IkV2ZXIiKSAlPiUKICAgIGdncGxvdChhZXMoeD15ZWFyLHk9YFBlcmNlbnRhZ2Ugb2Ygc3R1ZGVudHNgLCBjb2xvcj1Qcm9kdWN0KSkgKwogICAgZ2VvbV9saW5lKGxpbmV0eXBlPTEpICsgIyBnZW9tX2JhcihzdGF0PSJpZGVudGl0eSIsIHBvc2l0aW9uID0gImRvZGdlIiwgY29sb3I9ImJsYWNrIikgKwogIGdlb21fcG9pbnQoc2hvdy5sZWdlbmQgPSBGQUxTRSkgKwogIHNjYWxlX3lfY29udGludW91cyhicmVha3MgPSBzZXEoMTAsIDYwLCBieSA9IDEwKSwgbGltaXRzID0gYygxMCw2MCkpICsKICAgIHRoZW1lX21pbmltYWwoKSArCiAgICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIiwKICAgICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfYmxhbmsoKSkgKwogICAgbGFicyh0aXRsZSA9ICJIb3cgZG9lcyBlLWNpZ2FyZXR0ZSBldmVyIHVzZSBjb21wYXJlIHRvIGV2ZXIgdXNlIG9mIG90aGVyIHByb2R1Y3RzIG92ZXIgdGhlIHllYXJzPyIsCiAgICAgICAgIHkgPSAiJSBvZiBzdHVkZW50cyIpCgpwbG90NwpgYGAKCmBgYHtyfQpwbG90OCA8LSBueXRzX2RhdGEgJT4lCiAgICBncm91cF9ieSh5ZWFyKSAlPiUKICBzdW1tYXJpemUoZWNpZ19ldmVyX3llYXI9KHN1bShlY2lnX2V2ZXIsIG5hLnJtID0gVFJVRSkqMTAwKS8KICAgICAgICAgICAgICAgIHN1bSghaXMubmEoZWNpZ19ldmVyKSksCiAgICAgICAgICAgICAgZWNpZ19jdXJyZW50X3llYXI9KHN1bShlY2lnX2N1cnJlbnQsIG5hLnJtID0gVFJVRSkqMTAwKS8KICAgICAgICAgICAgICAgIHN1bSghaXMubmEoZWNpZ19jdXJyZW50KSksCiAgICAgICAgICAgICAgbm9uX2VjaWdfZXZlcl95ZWFyPShzdW0obm9uX2VjaWdfZXZlciwgbmEucm0gPSBUUlVFKSoxMDApLwogICAgICAgICAgICAgICAgc3VtKCFpcy5uYShub25fZWNpZ19ldmVyKSksCiAgICAgICAgICAgICAgbm9uX2VjaWdfY3VycmVudF95ZWFyPShzdW0obm9uX2VjaWdfY3VycmVudCwgbmEucm0gPSBUUlVFKSoxMDApLwogICAgICAgICAgICAgICAgc3VtKCFpcy5uYShub25fZWNpZ19jdXJyZW50KSkpICU+JQogICAgcGl2b3RfbG9uZ2VyKGNvbHMgPSAteWVhciwgbmFtZXNfdG8gPSAiQ2F0ZWdvcnkiLCB2YWx1ZXNfdG8gPSAiUGVyY2VudGFnZSBvZiBzdHVkZW50cyIpICU+JQogICAgbXV0YXRlKFVzZXIgPSBjYXNlX3doZW4oQ2F0ZWdvcnkgPT0iZWNpZ19ldmVyX3llYXIiIH4gIkV2ZXIiLAogICAgICAgICAgICAgICAgICAgICAgICAgICBDYXRlZ29yeSA9PSJub25fZWNpZ19ldmVyX3llYXIiIH4gIkV2ZXIiLAogICAgICAgICAgICAgICAgICAgICAgICAgICBDYXRlZ29yeSA9PSJlY2lnX2N1cnJlbnRfeWVhciIgfiAiQ3VycmVudCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIENhdGVnb3J5ID09Im5vbl9lY2lnX2N1cnJlbnRfeWVhciIgfiAiQ3VycmVudCIpKSAlPiUKICAgIG11dGF0ZShQcm9kdWN0ID0gY2FzZV93aGVuKENhdGVnb3J5ID09ImVjaWdfZXZlcl95ZWFyIiB+ICJFLWNpZ2FyZXR0ZXMiLAogICAgICAgICAgICAgICAgICAgICAgICAgICBDYXRlZ29yeSA9PSJub25fZWNpZ19ldmVyX3llYXIiIH4gIk90aGVyIHByb2R1Y3RzIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgQ2F0ZWdvcnkgPT0iZWNpZ19jdXJyZW50X3llYXIiIH4gIkUtY2lnYXJldHRlcyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIENhdGVnb3J5ID09Im5vbl9lY2lnX2N1cnJlbnRfeWVhciIgfiAiT3RoZXIgcHJvZHVjdHMiKSkgJT4lCiAgICBnZ3Bsb3QoYWVzKHg9eWVhcix5PWBQZXJjZW50YWdlIG9mIHN0dWRlbnRzYCwgY29sb3I9UHJvZHVjdCwgbGluZXR5cGU9VXNlcikpICsKICAgIGdlb21fbGluZSgpICsKICBnZW9tX3BvaW50KHNob3cubGVnZW5kID0gRkFMU0UpICsKICBzY2FsZV9saW5ldHlwZV9tYW51YWwodmFsdWVzID0gYygyLDEpKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgwLCA2MCwgYnkgPSAxMCksIGxpbWl0cyA9IGMoMCw2MCkpICsKICAgIHRoZW1lX21pbmltYWwoKSArCiAgICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIiwKICAgICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfYmxhbmsoKSkgKwogICAgbGFicyh0aXRsZSA9ICJIb3cgaGFzIGUtY2lnYXJldHRlIHVzZSBjb21wYXJlZCB0byB0aGUgdXNlIG9mIG90aGVyIHRvYmFjY28gcHJvZHVjdHM/IiwKICAgICAgICAgeSA9ICIlIG9mIHN0dWRlbnRzIikKCnBsb3Q4CmBgYAoKIyMjIFVud2VpZ2h0ZWQgU2FtcGxlCgpgYGB7ciwgZmlnLmhlaWdodD0xMH0KcGxvdEFfdXcgPC0gcGxvdDEgKwogIHRoZW1lKGF4aXMudGl0bGUueCA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBsZWdlbmQucG9zaXRpb24gPSAibm9uZSIpICsKICAgIGxhYnModGl0bGUgPSAiTmljb3RpbmUgcHJvZHVjdCB1c2VycyBtb3JlIHByZXZhbGVudCBhZnRlciAyMDE3IiwKICAgICAgICAgc3VidGl0bGUgPSBOVUxMLAogICAgICAgICB5ID0gIiUgb2Ygc3R1ZGVudHMiKQoKcGxvdEJfdXcgPC0gcGxvdDcgKyAKICB0aGVtZShheGlzLnRpdGxlLnggPSBlbGVtZW50X2JsYW5rKCksCiAgICAgICAgbGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiKSArCiAgICBsYWJzKHRpdGxlID0gIiUgRXZlciB0cnlpbmcgZS1jaWdhcmV0dGVzIGluY3JlYXNlcyAmXG4lIGV2ZXIgdHJ5aW5nIG90aGVyIHByb2R1Y3RzIGRlY3JlYXNlcyIsCiAgICAgICAgIHN1YnRpdGxlID0gTlVMTCwKICAgICAgICAgeSA9ICIlIG9mIHN0dWRlbnRzIikKCnBsb3RDX3V3IDwtIHBsb3Q4ICsgCiAgdGhlbWUoYXhpcy50aXRsZS54ID0gZWxlbWVudF9ibGFuaygpLAogICAgICAgIGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIikgKwogICAgbGFicyh0aXRsZSA9ICIlIFVzaW5nIGUtY2lnYXJldHRlcyBpbmNyZWFzZXMgJlxuJSB1c2luZyBPdGhlciBwcm9kdWN0cyBkZWNyZWFzZXMiLAogICAgICAgICBzdWJ0aXRsZSA9IE5VTEwsCiAgICAgICAgIHkgPSAiJSBvZiBzdHVkZW50cyIpCgp0aXRsZV91dyA8LSBnZ2RyYXcoKSArIAogIGRyYXdfbGFiZWwoCiAgICAiSGF2ZSB2YXBpbmcgcmF0ZXMgcG9zc2libHkgaW5mbHVlbmNlZCB0b2JhY2NvL25pY290aW5lIHVzZT8iLAogICAgZm9udGZhY2UgPSAnYm9sZCcsCiAgICBzaXplPTE0LAogICAgeCA9IDAsCiAgICBoanVzdCA9IDAKICApICsKICB0aGVtZSgKICAgIHBsb3QubWFyZ2luID0gbWFyZ2luKDAsIDAsIDAsIDApCiAgKQoKcGxvdHNBX3V3IDwtIHBsb3RfZ3JpZChwbG90QV91dywKICAgICAgICAgICAgICAgICAgICAgcmVsX3dpZHRocyA9IGMoMSwxKSkKcGxvdHNCQ191dyA8LSBwbG90X2dyaWQocGxvdEJfdXcsCiAgICAgICAgICAgICAgICAgICAgICAgIHBsb3RDX3V3LAogICAgICAgICAgICAgICAgICAgICAgICByZWxfd2lkdGhzID0gYygxLDEpKQoKbGVnZW5kX3V3IDwtIGdldF9sZWdlbmQocGxvdDggKwogICAgICAgICAgICAgICAgICAgICAgIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxlZ2VuZC5kaXJlY3Rpb24gPSAiaG9yaXpvbnRhbCIpKQoKZmlndXJlX3V3IDwtIHBsb3RfZ3JpZCh0aXRsZV91dywKICAgICAgICAgICAgICAgICAgICAgICBwbG90c0FfdXcsCiAgICAgICAgICAgICAgICAgICAgICAgcGxvdHNCQ191dywKICAgICAgICAgICAgICAgICAgICAgICBsZWdlbmRfdXcsCiAgICAgICAgICAgICAgICAgICAgICAgbmNvbCA9IDEsCiAgICAgICAgICAgICAgICAgICAgICAgcmVsX2hlaWdodHMgPSBjKDAuMSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgMSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgMSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgMC4xKSwKICAgICAgICAgICAgICAgICAgICAgICBzY2FsZSA9IDEuMCkKCmZpZ3VyZV91dwpgYGAKCiMjIyBXZWlnaHRlZCBTYW1wbGUKYGBge3J9CnBsb3RBX3cgPC0gbnl0c19kYXRhICU+JQogIGFzX3N1cnZleV9kZXNpZ24oc3RyYXRhID0gc3RyYXR1bSwgaWRzID0gcHN1LCB3ZWlnaHQgID0gZmlud2d0LCBuZXN0PVRSVUUpICU+JQogICAgZ3JvdXBfYnkoeWVhcikgJT4lCnN1bW1hcml6ZSh0b2JhY2NvX2V2ZXJfeWVhciA9IHN1cnZleV9tZWFuKHRvYmFjY29fZXZlciwgdmFydHlwZSA9ICJjaSIsIG5hLnJtPVRSVUUpLAogICAgICAgICAgICB0b2JhY2NvX2N1cnJlbnRfeWVhciA9IHN1cnZleV9tZWFuKHRvYmFjY29fY3VycmVudCwgdmFydHlwZSA9ICJjaSIsIG5hLnJtPVRSVUUpKSAgJT4lCiAgbXV0YXRlX2F0KHZhcnMoLXllYXIpLCAiKiIsIDEwMCkgJT4lCiAgICBwaXZvdF9sb25nZXIoY29scyA9IC15ZWFyLCBuYW1lc190byA9ICJUeXBlIiwgdmFsdWVzX3RvID0gIlBlcmNlbnRhZ2Ugb2Ygc3R1ZGVudHMiKSAlPiUKICBtdXRhdGUoRXN0aW1hdGUgPSBjYXNlX3doZW4oZ3JlcGwoIl9sb3ciLCBUeXBlKSB+ICJMb3dlciIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgZ3JlcGwoIl91cHAiLCBUeXBlKSB+ICJVcHBlciIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgVFJVRSB+ICJNZWFuIiksCiAgICAgICAgIFVzZXIgPSBjYXNlX3doZW4oZ3JlcGwoImV2ZXIiLCBUeXBlKSB+ICJFdmVyIiwKICAgICAgICAgICAgICAgICAgICAgICAgICBncmVwbCgiY3VycmVudCIsIFR5cGUpIH4gIkN1cnJlbnQiLAogICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUUgfiAiTWVhbiIpKSAlPiUKICBkcGx5cjo6c2VsZWN0KC1UeXBlKSAlPiUKICBwaXZvdF93aWRlcihuYW1lc19mcm9tID0gRXN0aW1hdGUsIAogICAgICAgICAgICAgIHZhbHVlc19mcm9tID0gYFBlcmNlbnRhZ2Ugb2Ygc3R1ZGVudHNgKSAlPiUKICBnZ3Bsb3QoYWVzKHg9eWVhcix5PU1lYW4pKSArCiAgZ2VvbV9saW5lKGFlcyhsaW5ldHlwZT1Vc2VyKSkgKwogIGdlb21fbGluZXJhbmdlKGFlcyh5bWluID0gTG93ZXIsIHltYXggPSBVcHBlciksIHNob3cubGVnZW5kID0gRkFMU0UpICsKICBzY2FsZV9saW5ldHlwZV9tYW51YWwodmFsdWVzID0gYygyLDEpKSArCiAgICBzY2FsZV95X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKDAsNzAsYnk9MTApLAogICAgICAgICAgICAgICAgICAgICAgIGxhYmVscyA9IHNlcSgwLDcwLGJ5PTEwKSwKICAgICAgICAgICAgICAgICAgICAgICBsaW1pdHMgPSBjKDAsNzApKSArCiAgICB0aGVtZV9taW5pbWFsKCkgKwogICAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiLAogICAgICAgICAgYXhpcy50aXRsZS54ID0gZWxlbWVudF9ibGFuaygpKSArCiAgICBsYWJzKHRpdGxlID0gIk5pY290aW5lIHByb2R1Y3QgdXNlcnMgbW9yZSBwcmV2YWxlbnQgYWZ0ZXIgMjAxNyIsCiAgICAgICAgIHkgPSAiJSBvZiBzdHVkZW50cyIpCgpwbG90Ql93IDwtIG55dHNfZGF0YSAlPiUKICBhc19zdXJ2ZXlfZGVzaWduKHN0cmF0YSA9IHN0cmF0dW0sIGlkcyA9IHBzdSwgd2VpZ2h0ICA9IGZpbndndCwgbmVzdD1UUlVFKSAlPiUKICAgIGdyb3VwX2J5KHllYXIpICU+JQogIHN1bW1hcml6ZShlY2lnX2V2ZXJfeWVhciA9IHN1cnZleV9tZWFuKGVjaWdfZXZlciwgdmFydHlwZSA9ICJjaSIsIG5hLnJtPVRSVUUpLAogICAgICAgICAgICBlY2lnX2N1cnJlbnRfeWVhciA9IHN1cnZleV9tZWFuKGVjaWdfY3VycmVudCwgdmFydHlwZSA9ICJjaSIsIG5hLnJtPVRSVUUpLAogICAgICAgICAgICBub25fZWNpZ19ldmVyX3llYXIgPSBzdXJ2ZXlfbWVhbihub25fZWNpZ19ldmVyLCB2YXJ0eXBlID0gImNpIiwgbmEucm09VFJVRSksCiAgICAgICAgICAgIG5vbl9lY2lnX2N1cnJlbnRfeWVhciA9IHN1cnZleV9tZWFuKG5vbl9lY2lnX2N1cnJlbnQsIHZhcnR5cGUgPSAiY2kiLCBuYS5ybT1UUlVFKSkgJT4lCiAgbXV0YXRlX2F0KHZhcnMoLXllYXIpLCAiKiIsIDEwMCkgJT4lCiAgZHBseXI6OnNlbGVjdCh5ZWFyLAogICAgICAgICAgICAgICAgZWNpZ19ldmVyX3llYXIsCiAgICAgICAgICAgICAgICBlY2lnX2N1cnJlbnRfeWVhciwKICAgICAgICAgICAgICAgIG5vbl9lY2lnX2V2ZXJfeWVhciwKICAgICAgICAgICAgICAgIG5vbl9lY2lnX2N1cnJlbnRfeWVhciwKICAgICAgICAgICAgICAgIGNvbnRhaW5zKCJsb3ciKSwKICAgICAgICAgICAgICAgIGNvbnRhaW5zKCJ1cHAiKSkgJT4lCiAgcGl2b3RfbG9uZ2VyKGNvbHMgPSAteWVhciwgbmFtZXNfdG8gPSAiQ2F0ZWdvcnkiLCB2YWx1ZXNfdG8gPSAiUGVyY2VudGFnZSBvZiBzdHVkZW50cyIpICU+JQogIG11dGF0ZShFc3RpbWF0ZSA9IGNhc2Vfd2hlbihncmVwbCgiX2xvdyIsIENhdGVnb3J5KSB+ICJMb3dlciIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgZ3JlcGwoIl91cHAiLCBDYXRlZ29yeSkgfiAiVXBwZXIiLAogICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUUgfiAiTWVhbiIpLAogICAgICAgICBVc2VyID0gY2FzZV93aGVuKGdyZXBsKCJjdXJyZW50IiwgQ2F0ZWdvcnkpIH4gIkN1cnJlbnQiLAogICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUUgfiAiRXZlciIsKSwKICAgICAgICAgUHJvZHVjdCA9IGNhc2Vfd2hlbihncmVwbCgibm9uX2VjaWciLCBDYXRlZ29yeSkgfiAiT3RoZXIgcHJvZHVjdHMiLAogICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUUgfiAiRS1jaWdhcmV0dGVzIikpICU+JQogIGRwbHlyOjpzZWxlY3QoLUNhdGVnb3J5KSAlPiUKICBwaXZvdF93aWRlcihuYW1lc19mcm9tID0gRXN0aW1hdGUsIAogICAgICAgICAgICAgIHZhbHVlc19mcm9tID0gYFBlcmNlbnRhZ2Ugb2Ygc3R1ZGVudHNgKSAlPiUKICBmaWx0ZXIoVXNlcj09IkV2ZXIiKSAlPiUKICBkcGx5cjo6cmVuYW1lKCJMb3dlcl90ZW1wIiA9IFVwcGVyLAogICAgICAgICAgICAgICAgIlVwcGVyX3RlbXAiID0gTG93ZXIpICU+JQogIGRwbHlyOjpyZW5hbWUoIkxvd2VyIj1Mb3dlcl90ZW1wLAogICAgICAgICAgICAgICAgIlVwcGVyIj1VcHBlcl90ZW1wKSAlPiUKICAgIGdncGxvdChhZXMoeD15ZWFyLHk9TWVhbiwgY29sb3I9UHJvZHVjdCkpICsKICBnZW9tX2xpbmUobGluZXR5cGU9MSkgKwogIGdlb21fbGluZXJhbmdlKGFlcyh5bWluID0gTG93ZXIsIHltYXggPSBVcHBlciksIHNob3cubGVnZW5kID0gRkFMU0UpICsKICBzY2FsZV95X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKDEwLCA2MCwgYnkgPSAxMCksIGxpbWl0cyA9IGMoMTAsNjApKSArCiAgICB0aGVtZV9taW5pbWFsKCkgKwogICAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiLAogICAgICAgICAgYXhpcy50aXRsZS54ID0gZWxlbWVudF9ibGFuaygpKSArCiAgICBsYWJzKHRpdGxlID0gIiUgZXZlciB0cnlpbmcgZS1jaWdhcmV0dGVzIGluY3JlYXNlcyAmXG4lIGV2ZXIgdHJ5aW5nIG90aGVyIHByb2R1Y3RzIGRlY3JlYXNlcyIsCiAgICAgICAgIHkgPSAiJSBvZiBzdHVkZW50cyIpCgojIyMjIHRoZSB3cmFuZ2xpbmcgbG9va3MgdGhlIHNhbWUgYXMgdGhlIGFib3ZlIHBsb3QuLi4KcGxvdENfdyA8LSBueXRzX2RhdGEgJT4lCiAgYXNfc3VydmV5X2Rlc2lnbihzdHJhdGEgPSBzdHJhdHVtLCBpZHMgPSBwc3UsIHdlaWdodCAgPSBmaW53Z3QsIG5lc3Q9VFJVRSkgJT4lCiAgICBncm91cF9ieSh5ZWFyKSAlPiUKc3VtbWFyaXplKGVjaWdfZXZlcl95ZWFyID0gc3VydmV5X21lYW4oZWNpZ19ldmVyLCB2YXJ0eXBlID0gImNpIiwgbmEucm09VFJVRSksCiAgICAgICAgICAgIGVjaWdfY3VycmVudF95ZWFyID0gc3VydmV5X21lYW4oZWNpZ19jdXJyZW50LCB2YXJ0eXBlID0gImNpIiwgbmEucm09VFJVRSksCiAgICAgICAgICAgIG5vbl9lY2lnX2V2ZXJfeWVhciA9IHN1cnZleV9tZWFuKG5vbl9lY2lnX2V2ZXIsIHZhcnR5cGUgPSAiY2kiLCBuYS5ybT1UUlVFKSwKICAgICAgICAgICAgbm9uX2VjaWdfY3VycmVudF95ZWFyID0gc3VydmV5X21lYW4obm9uX2VjaWdfY3VycmVudCwgdmFydHlwZSA9ICJjaSIsIG5hLnJtPVRSVUUpKSAlPiUKICBtdXRhdGVfYXQodmFycygteWVhciksICIqIiwgMTAwKSAlPiUKICBkcGx5cjo6c2VsZWN0KHllYXIsCiAgICAgICAgICAgICAgICBlY2lnX2V2ZXJfeWVhciwKICAgICAgICAgICAgICAgIGVjaWdfY3VycmVudF95ZWFyLAogICAgICAgICAgICAgICAgbm9uX2VjaWdfZXZlcl95ZWFyLAogICAgICAgICAgICAgICAgbm9uX2VjaWdfY3VycmVudF95ZWFyLAogICAgICAgICAgICAgICAgY29udGFpbnMoImxvdyIpLAogICAgICAgICAgICAgICAgY29udGFpbnMoInVwcCIpKSAlPiUKICBwaXZvdF9sb25nZXIoY29scyA9IC15ZWFyLCBuYW1lc190byA9ICJDYXRlZ29yeSIsIHZhbHVlc190byA9ICJQZXJjZW50YWdlIG9mIHN0dWRlbnRzIikgJT4lCiAgICBtdXRhdGUoRXN0aW1hdGUgPSBjYXNlX3doZW4oZ3JlcGwoIl9sb3ciLCBDYXRlZ29yeSkgfiAiTG93ZXIiLAogICAgICAgICAgICAgICAgICAgICAgICAgIGdyZXBsKCJfdXBwIiwgQ2F0ZWdvcnkpIH4gIlVwcGVyIiwKICAgICAgICAgICAgICAgICAgICAgICAgICBUUlVFIH4gIk1lYW4iKSwKICAgICAgICAgVXNlciA9IGNhc2Vfd2hlbihncmVwbCgiZXZlciIsIENhdGVnb3J5KSB+ICJFdmVyIiwKICAgICAgICAgICAgICAgICAgICAgICAgICBncmVwbCgiY3VycmVudCIsIENhdGVnb3J5KSB+ICJDdXJyZW50IiksCiAgICAgICAgIFByb2R1Y3QgPSBjYXNlX3doZW4oZ3JlcGwoIm5vbl9lY2lnIiwgQ2F0ZWdvcnkpIH4gIk90aGVyIHByb2R1Y3RzIiwKICAgICAgICAgICAgICAgICAgICAgICAgICBUUlVFIH4gIkUtY2lnYXJldHRlcyIpKSAlPiUKICBkcGx5cjo6c2VsZWN0KC1DYXRlZ29yeSkgJT4lCiAgcGl2b3Rfd2lkZXIobmFtZXNfZnJvbSA9IEVzdGltYXRlLCAKICAgICAgICAgICAgICB2YWx1ZXNfZnJvbSA9IGBQZXJjZW50YWdlIG9mIHN0dWRlbnRzYCkgJT4lCiAgICBnZ3Bsb3QoYWVzKHg9eWVhcix5PU1lYW4sIGNvbG9yPVByb2R1Y3QpKSArCiAgZ2VvbV9saW5lKGFlcyhsaW5ldHlwZT1Vc2VyKSkgKwogIGdlb21fbGluZXJhbmdlKGFlcyh5bWluID0gTG93ZXIsIHltYXggPSBVcHBlciksIHNob3cubGVnZW5kID0gRkFMU0UpICsKICBzY2FsZV9saW5ldHlwZV9tYW51YWwodmFsdWVzID0gYygyLDEpKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgwLCA2MCwgYnkgPSAxMCksIGxpbWl0cyA9IGMoMCw2MCkpICsKICAgIHRoZW1lX21pbmltYWwoKSArCiAgICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAibm9uZSIsCiAgICAgICAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X2JsYW5rKCkpICsKICAgIGxhYnModGl0bGUgPSAiJSBVc2luZyBlLWNpZ2FyZXR0ZXMgaW5jcmVhc2VzICZcbiUgdXNpbmcgT3RoZXIgcHJvZHVjdHMgZGVjcmVhc2VzIiwKICAgICAgICAgeSA9ICIlIG9mIHN0dWRlbnRzIikKCnRpdGxlX3cgPC0gZ2dkcmF3KCkgKyAKICBkcmF3X2xhYmVsKAogICAgZXhwcmVzc2lvbigiSGF2ZSB2YXBpbmcgcmF0ZXMgcG9zc2libHkgaW5mbHVlbmNlZCB0b2JhY2NvL25pY290aW5lIHVzZT8iKSwKICAgIGZvbnRmYWNlID0gJ2JvbGQnLAogICAgc2l6ZT0xNCwKICAgIHggPSAwLAogICAgaGp1c3QgPSAwCiAgKSArCiAgdGhlbWUoCiAgICBwbG90Lm1hcmdpbiA9IG1hcmdpbigwLCAwLCAwLCAwKQogICkKCnBsb3RzQV93IDwtIHBsb3RfZ3JpZChwbG90QV93LAogICAgICAgICAgICAgICAgICAgICByZWxfd2lkdGhzID0gYygxKSwKICAgICAgICAgICAgICAgICAgICAgYWxpZ24gPSAidiIsCiAgICAgICAgICAgICAgICAgICAgIGF4aXMgPSAiYnQiKQpwbG90c0JDX3cgPC0gcGxvdF9ncmlkKHBsb3RCX3csCiAgICAgICAgICAgICAgICAgICAgIHBsb3RDX3csCiAgICAgICAgICAgICAgICAgICAgIHJlbF93aWR0aHMgPSBjKDEsMSksCiAgICAgICAgICAgICAgICAgICAgIGFsaWduID0gInYiLAogICAgICAgICAgICAgICAgICAgICBheGlzID0gImJ0IikKCmxlZ2VuZF93IDwtIGdldF9sZWdlbmQocGxvdDggKwogICAgICAgICAgICAgICAgICAgICAgIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxlZ2VuZC5kaXJlY3Rpb24gPSAiaG9yaXpvbnRhbCIpKQoKZmlndXJlX3cgPC0gcGxvdF9ncmlkKHRpdGxlX3csCiAgICAgICAgICAgICAgICAgICAgICBwbG90c0FfdywKICAgICAgICAgICAgICAgICAgICAgIHBsb3RzQkNfdywKICAgICAgICAgICAgICAgICAgICAgIGxlZ2VuZF93LAogICAgICAgICAgICAgICAgICAgICAgbmNvbCA9IDEsCiAgICAgICAgICAgICAgICAgICAgICByZWxfaGVpZ2h0cyA9IGMoMC4xLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIDEsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgMSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAwLjEpLAogICAgICAgICAgICAgICAgICAgICAgc2NhbGUgPSAxLjApCgpmaWd1cmVfdwpgYGAKCiMjIyBIeXBvdGhldGljYWwgQ29ob3J0CmBgYHtyfQpwbG90QV93XzggPC0gbnl0c19kYXRhICU+JQogIGZpbHRlcigoR3JhZGUgPT0gIjgiICYgeWVhciA9PSAyMDE1KSB8CiAgICAgICAgIChHcmFkZSA9PSAiOSIgJiB5ZWFyID09IDIwMTYpIHwKICAgICAgICAgKEdyYWRlID09ICIxMCIgJiB5ZWFyID09IDIwMTcpIHwKICAgICAgICAgKEdyYWRlID09ICIxMSIgJiB5ZWFyID09IDIwMTgpIHwKICAgICAgICAgIChHcmFkZSA9PSAiMTIiICYgeWVhciA9PSAyMDE5KSAKICAgICAgICAgKSAlPiUKICBhc19zdXJ2ZXlfZGVzaWduKHN0cmF0YSA9IHN0cmF0dW0sIGlkcyA9IHBzdSwgd2VpZ2h0ICA9IGZpbndndCkgJT4lCiAgICBncm91cF9ieSh5ZWFyKSAlPiUKc3VtbWFyaXplKHRvYmFjY29fZXZlcl95ZWFyID0gc3VydmV5X21lYW4odG9iYWNjb19ldmVyLCB2YXJ0eXBlID0gImNpIiwgbmEucm09VFJVRSksCiAgICAgICAgICAgIHRvYmFjY29fY3VycmVudF95ZWFyID0gc3VydmV5X21lYW4odG9iYWNjb19jdXJyZW50LCB2YXJ0eXBlID0gImNpIiwgbmEucm09VFJVRSkpICAlPiUKICBtdXRhdGVfYXQodmFycygteWVhciksICIqIiwgMTAwKSAlPiUKICAgIHBpdm90X2xvbmdlcihjb2xzID0gLXllYXIsIG5hbWVzX3RvID0gIlR5cGUiLCB2YWx1ZXNfdG8gPSAiUGVyY2VudGFnZSBvZiBzdHVkZW50cyIpJT4lCiAgbXV0YXRlKEVzdGltYXRlID0gY2FzZV93aGVuKGdyZXBsKCJfbG93IiwgVHlwZSkgfiAiTG93ZXIiLAogICAgICAgICAgICAgICAgICAgICAgICAgIGdyZXBsKCJfdXBwIiwgVHlwZSkgfiAiVXBwZXIiLAogICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUUgfiAiTWVhbiIpLAogICAgICAgICBVc2VyID0gY2FzZV93aGVuKGdyZXBsKCJldmVyIiwgVHlwZSkgfiAiRXZlciIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgZ3JlcGwoImN1cnJlbnQiLCBUeXBlKSB+ICJDdXJyZW50IiwKICAgICAgICAgICAgICAgICAgICAgICAgICBUUlVFIH4gIk1lYW4iKSkgJT4lCiAgZHBseXI6OnNlbGVjdCgtVHlwZSkgJT4lCiAgcGl2b3Rfd2lkZXIobmFtZXNfZnJvbSA9IEVzdGltYXRlLCAKICAgICAgICAgICAgICB2YWx1ZXNfZnJvbSA9IGBQZXJjZW50YWdlIG9mIHN0dWRlbnRzYCkgJT4lCiAgI3NwcmVhZChFc3RpbWF0ZSwgYFBlcmNlbnRhZ2Ugb2Ygc3R1ZGVudHNgKSAlPiUKICBnZ3Bsb3QoYWVzKHg9eWVhcix5PU1lYW4pKSArCiAgZ2VvbV9saW5lKGFlcyhsaW5ldHlwZT1Vc2VyKSkgKwogIGdlb21fbGluZXJhbmdlKGFlcyh5bWluID0gTG93ZXIsIHltYXggPSBVcHBlcikpICsgCiAgc2NhbGVfbGluZXR5cGVfbWFudWFsKHZhbHVlcyA9IGMoMiwxKSkgKwogICAgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgwLDcwLGJ5PTEwKSwKICAgICAgICAgICAgICAgICAgICAgICBsYWJlbHMgPSBzZXEoMCw3MCxieT0xMCksCiAgICAgICAgICAgICAgICAgICAgICAgbGltaXRzID0gYygwLDcwKSkgKwogICAgdGhlbWVfbWluaW1hbCgpICsKICAgIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIiwKICAgICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfYmxhbmsoKSkgKwogICAgbGFicyh0aXRsZSA9ICJOaWNvdGluZSBwcm9kdWN0IHVzZXJzIGJlY29taW5nIGluY3JlYXNpbmdseSBwcmV2YWxlbnQiLAogICAgICAgICB5ID0gIiUgb2Ygc3R1ZGVudHMiKQoKcGxvdEJfd184IDwtIG55dHNfZGF0YSAlPiUKICBmaWx0ZXIoKEdyYWRlID09ICI4IiAmIHllYXIgPT0gMjAxNSkgfAogICAgICAgICAoR3JhZGUgPT0gIjkiICYgeWVhciA9PSAyMDE2KSB8CiAgICAgICAgIChHcmFkZSA9PSAiMTAiICYgeWVhciA9PSAyMDE3KSB8CiAgICAgICAgIChHcmFkZSA9PSAiMTEiICYgeWVhciA9PSAyMDE4KSB8CiAgICAgICAgICAoR3JhZGUgPT0gIjEyIiAmIHllYXIgPT0gMjAxOSkgCiAgICAgICAgICkgJT4lCiAgYXNfc3VydmV5X2Rlc2lnbihzdHJhdGEgPSBzdHJhdHVtLCBpZHMgPSBwc3UsIHdlaWdodCAgPSBmaW53Z3QpICU+JQogICAgZ3JvdXBfYnkoeWVhcikgJT4lCiAgc3VtbWFyaXplKGVjaWdfZXZlcl95ZWFyID0gc3VydmV5X21lYW4oZWNpZ19ldmVyLCB2YXJ0eXBlID0gImNpIiwgbmEucm09VFJVRSksCiAgICAgICAgICAgIGVjaWdfY3VycmVudF95ZWFyID0gc3VydmV5X21lYW4oZWNpZ19jdXJyZW50LCB2YXJ0eXBlID0gImNpIiwgbmEucm09VFJVRSksCiAgICAgICAgICAgIG5vbl9lY2lnX2V2ZXJfeWVhciA9IHN1cnZleV9tZWFuKG5vbl9lY2lnX2V2ZXIsIHZhcnR5cGUgPSAiY2kiLCBuYS5ybT1UUlVFKSwKICAgICAgICAgICAgbm9uX2VjaWdfY3VycmVudF95ZWFyID0gc3VydmV5X21lYW4obm9uX2VjaWdfY3VycmVudCwgdmFydHlwZSA9ICJjaSIsIG5hLnJtPVRSVUUpKSAlPiUKICBtdXRhdGVfYXQodmFycygteWVhciksICIqIiwgMTAwKSAlPiUKICBkcGx5cjo6c2VsZWN0KHllYXIsCiAgICAgICAgICAgICAgICBlY2lnX2V2ZXJfeWVhciwKICAgICAgICAgICAgICAgIGVjaWdfY3VycmVudF95ZWFyLAogICAgICAgICAgICAgICAgbm9uX2VjaWdfZXZlcl95ZWFyLAogICAgICAgICAgICAgICAgbm9uX2VjaWdfY3VycmVudF95ZWFyLAogICAgICAgICAgICAgICAgY29udGFpbnMoImxvdyIpLAogICAgICAgICAgICAgICAgY29udGFpbnMoInVwcCIpKSAlPiUKICAgcGl2b3RfbG9uZ2VyKGNvbHMgPSAteWVhciwgbmFtZXNfdG8gPSAiQ2F0ZWdvcnkiLCB2YWx1ZXNfdG8gPSAiUGVyY2VudGFnZSBvZiBzdHVkZW50cyIpJT4lCiAgbXV0YXRlKEVzdGltYXRlID0gY2FzZV93aGVuKGdyZXBsKCJfbG93IiwgQ2F0ZWdvcnkpIH4gIkxvd2VyIiwKICAgICAgICAgICAgICAgICAgICAgICAgICBncmVwbCgiX3VwcCIsIENhdGVnb3J5KSB+ICJVcHBlciIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgVFJVRSB+ICJNZWFuIiksCiAgICAgICAgIFVzZXIgPSBjYXNlX3doZW4oZ3JlcGwoImN1cnJlbnQiLCBDYXRlZ29yeSkgfiAiQ3VycmVudCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgVFJVRSB+ICJFdmVyIiwpLAogICAgICAgICBQcm9kdWN0ID0gY2FzZV93aGVuKGdyZXBsKCJub25fZWNpZyIsIENhdGVnb3J5KSB+ICJPdGhlciBwcm9kdWN0cyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgVFJVRSB+ICJFLWNpZ2FyZXR0ZXMiKSkgJT4lCiAgZHBseXI6OnNlbGVjdCgtQ2F0ZWdvcnkpICU+JQogIHBpdm90X3dpZGVyKG5hbWVzX2Zyb20gPSBFc3RpbWF0ZSwgCiAgICAgICAgICAgICAgdmFsdWVzX2Zyb20gPSBgUGVyY2VudGFnZSBvZiBzdHVkZW50c2ApICU+JQogIGZpbHRlcihVc2VyPT0iRXZlciIpICU+JQogIGRwbHlyOjpyZW5hbWUoIkxvd2VyX3RlbXAiID0gVXBwZXIsCiAgICAgICAgICAgICAgICAiVXBwZXJfdGVtcCIgPSBMb3dlcikgJT4lCiAgZHBseXI6OnJlbmFtZSgiTG93ZXIiPUxvd2VyX3RlbXAsCiAgICAgICAgICAgICAgICAiVXBwZXIiPVVwcGVyX3RlbXApICU+JQogIGdncGxvdChhZXMoeD15ZWFyLHk9TWVhbiwgY29sb3I9UHJvZHVjdCkpICsKICBnZW9tX2xpbmUobGluZXR5cGU9MSkgKwogIGdlb21fbGluZXJhbmdlKGFlcyh5bWluID0gTG93ZXIsIHltYXggPSBVcHBlcikpICsgCiAgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgxMCwgNjAsIGJ5ID0gMTApLCBsaW1pdHMgPSBjKDEwLDYwKSkgKwogICAgdGhlbWVfbWluaW1hbCgpICsKICAgIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIiwKICAgICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfYmxhbmsoKSkgKwogICAgbGFicyh0aXRsZSA9ICIlIGV2ZXIgdHJ5aW5nIG5pY290aW5lIHByb2R1Y3RzIGluY3JlYXNlcyIsCiAgICAgICAgIHkgPSAiJSBvZiBzdHVkZW50cyIpCgpwbG90Q193XzggPC0gbnl0c19kYXRhICU+JQogIGZpbHRlcigoR3JhZGUgPT0gIjgiICYgeWVhciA9PSAyMDE1KSB8CiAgICAgICAgIChHcmFkZSA9PSAiOSIgJiB5ZWFyID09IDIwMTYpIHwKICAgICAgICAgKEdyYWRlID09ICIxMCIgJiB5ZWFyID09IDIwMTcpIHwKICAgICAgICAgKEdyYWRlID09ICIxMSIgJiB5ZWFyID09IDIwMTgpIHwKICAgICAgICAgIChHcmFkZSA9PSAiMTIiICYgeWVhciA9PSAyMDE5KSAKICAgICAgICAgKSAlPiUKICBhc19zdXJ2ZXlfZGVzaWduKHN0cmF0YSA9IHN0cmF0dW0sIGlkcyA9IHBzdSwgd2VpZ2h0ICA9IGZpbndndCkgJT4lCiAgICBncm91cF9ieSh5ZWFyKSAlPiUKc3VtbWFyaXplKGVjaWdfZXZlcl95ZWFyID0gc3VydmV5X21lYW4oZWNpZ19ldmVyLCB2YXJ0eXBlID0gImNpIiwgbmEucm09VFJVRSksCiAgICAgICAgICAgIGVjaWdfY3VycmVudF95ZWFyID0gc3VydmV5X21lYW4oZWNpZ19jdXJyZW50LCB2YXJ0eXBlID0gImNpIiwgbmEucm09VFJVRSksCiAgICAgICAgICAgIG5vbl9lY2lnX2V2ZXJfeWVhciA9IHN1cnZleV9tZWFuKG5vbl9lY2lnX2V2ZXIsIHZhcnR5cGUgPSAiY2kiLCBuYS5ybT1UUlVFKSwKICAgICAgICAgICAgbm9uX2VjaWdfY3VycmVudF95ZWFyID0gc3VydmV5X21lYW4obm9uX2VjaWdfY3VycmVudCwgdmFydHlwZSA9ICJjaSIsIG5hLnJtPVRSVUUpKSAlPiUKICBtdXRhdGVfYXQodmFycygteWVhciksICIqIiwgMTAwKSAlPiUKICBkcGx5cjo6c2VsZWN0KHllYXIsCiAgICAgICAgICAgICAgICBlY2lnX2V2ZXJfeWVhciwKICAgICAgICAgICAgICAgIGVjaWdfY3VycmVudF95ZWFyLAogICAgICAgICAgICAgICAgbm9uX2VjaWdfZXZlcl95ZWFyLAogICAgICAgICAgICAgICAgbm9uX2VjaWdfY3VycmVudF95ZWFyLAogICAgICAgICAgICAgICAgY29udGFpbnMoImxvdyIpLAogICAgICAgICAgICAgICAgY29udGFpbnMoInVwcCIpKSAlPiUKICBwaXZvdF9sb25nZXIoY29scyA9IC15ZWFyLCBuYW1lc190byA9ICJDYXRlZ29yeSIsIHZhbHVlc190byA9ICJQZXJjZW50YWdlIG9mIHN0dWRlbnRzIiklPiUKICAgIG11dGF0ZShFc3RpbWF0ZSA9IGNhc2Vfd2hlbihncmVwbCgiX2xvdyIsIENhdGVnb3J5KSB+ICJMb3dlciIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgZ3JlcGwoIl91cHAiLCBDYXRlZ29yeSkgfiAiVXBwZXIiLAogICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUUgfiAiTWVhbiIpLAogICAgICAgICBVc2VyID0gY2FzZV93aGVuKGdyZXBsKCJldmVyIiwgQ2F0ZWdvcnkpIH4gIkV2ZXIiLAogICAgICAgICAgICAgICAgICAgICAgICAgIGdyZXBsKCJjdXJyZW50IiwgQ2F0ZWdvcnkpIH4gIkN1cnJlbnQiKSwKICAgICAgICAgUHJvZHVjdCA9IGNhc2Vfd2hlbihncmVwbCgibm9uX2VjaWciLCBDYXRlZ29yeSkgfiAiT3RoZXIgcHJvZHVjdHMiLAogICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUUgfiAiRS1jaWdhcmV0dGVzIikpICU+JQogIGRwbHlyOjpzZWxlY3QoLUNhdGVnb3J5KSAlPiUKICBwaXZvdF93aWRlcihuYW1lc19mcm9tID0gRXN0aW1hdGUsIAogICAgICAgICAgICAgIHZhbHVlc19mcm9tID0gYFBlcmNlbnRhZ2Ugb2Ygc3R1ZGVudHNgKSAlPiUKICAgIGdncGxvdChhZXMoeD15ZWFyLHk9TWVhbiwgY29sb3I9UHJvZHVjdCkpICsKICBnZW9tX2xpbmUoYWVzKGxpbmV0eXBlPVVzZXIpKSArCiAgZ2VvbV9saW5lcmFuZ2UoYWVzKHltaW4gPSBMb3dlciwgeW1heCA9IFVwcGVyKSkgKyAKICBzY2FsZV9saW5ldHlwZV9tYW51YWwodmFsdWVzID0gYygyLDEpKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgwLCA2MCwgYnkgPSAxMCksIGxpbWl0cyA9IGMoMCw2MCkpICsKICAgIHRoZW1lX21pbmltYWwoKSArCiAgICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAibm9uZSIsCiAgICAgICAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X2JsYW5rKCkpICsKICAgIGxhYnModGl0bGUgPSAiRS1jaWdhcmV0dGUgdXNlIHN1cnBhc3NlcyB1c2Ugb2Ygb3RoZXIgbmljb3RpbmUgcHJvZHVjdHMiLAogICAgICAgICB5ID0gIiUgb2Ygc3R1ZGVudHMiKQoKdGl0bGVfd184IDwtIGdnZHJhdygpICsgCiAgZHJhd19sYWJlbCgKICAgIGV4cHJlc3Npb24oIkFtb25nIn44XnRofiJncmFkZXJzIGluIDIwMTUsIGhhdmUgdmFwaW5nIHJhdGVzIHBvc3NpYmx5IGluZmx1ZW5jZWQgdG9iYWNjby9uaWNvdGluZSB1c2U/IiksCiAgICBmb250ZmFjZSA9ICdib2xkJywKICAgIHNpemU9MTQsCiAgICB4ID0gMCwKICAgIGhqdXN0ID0gMAogICkgKwogIHRoZW1lKAogICAgcGxvdC5tYXJnaW4gPSBtYXJnaW4oMCwgMCwgMCwgMCkKICApCgpwbG90c0Ffd184IDwtIHBsb3RfZ3JpZChwbG90QV93XzgsCiAgICAgICAgICAgICAgICAgICAgICAgIHJlbF93aWR0aHMgPSBjKDEpLAogICAgICAgICAgICAgICAgICAgICAgICBhbGlnbiA9ICJ2IiwKICAgICAgICAgICAgICAgICAgICAgICAgYXhpcyA9ICJidCIpCgpwbG90c0JDX3dfOCA8LSBwbG90X2dyaWQocGxvdEJfd184LAogICAgICAgICAgICAgICAgICAgICAgICAgcGxvdENfd184LAogICAgICAgICAgICAgICAgICAgICAgICAgcmVsX3dpZHRocyA9IGMoMSwxKSwKICAgICAgICAgICAgICAgICAgICAgICAgIGF4aXMgPSAiYnQiKQoKbGVnZW5kX3dfOCA8LSBnZXRfbGVnZW5kKHBsb3Q4ICsKICAgICAgICAgICAgICAgICAgICAgICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICBsZWdlbmQuZGlyZWN0aW9uID0gImhvcml6b250YWwiKSkKCmZpZ3VyZV93XzggPC0gcGxvdF9ncmlkKHRpdGxlX3dfOCwKICAgICAgICAgICAgICAgICAgICAgICAgcGxvdHNBX3dfOCwKICAgICAgICAgICAgICAgICAgICAgICAgcGxvdHNCQ193XzgsCiAgICAgICAgICAgICAgICAgICAgICAgIGxlZ2VuZF93XzgsCiAgICAgICAgICAgICAgICAgICAgICAgIG5jb2wgPSAxLAogICAgICAgICAgICAgICAgICAgICAgICByZWxfaGVpZ2h0cyA9IGMoMC4xLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIDEsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgMSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAwLjEpLAogICAgICAgICAgICAgICAgICAgICAgICBzY2FsZSA9IDEuMAopCgpmaWd1cmVfd184CmBgYAoKIyMjIEZpbmFsIEZpZ3VyZQoKYGBge3J9CnRpdGxlX2ZpbmFsIDwtIGdnZHJhdygpICsKICBkcmF3X2xhYmVsKAogICAgZXhwcmVzc2lvbigiV2hhdCBpcyB0aGUgcmVsYXRpb25zaGlwIGJldHdlZW4gdmFwaW5nIHJhdGVzIGFuZCB0b2JhY2NvL25pY290aW5lIHVzZT8iKSwKICAgIGZvbnRmYWNlID0gJ2JvbGQnLAogICAgc2l6ZT0xNiwKICAgIHggPSAwLjUpICsKICB0aGVtZSgKICAgIHBsb3QubWFyZ2luID0gbWFyZ2luKDAsIDAsIDAsIDApCiAgKQoKc3VidGl0bGVfdXdfZmluYWwgPC0gZ2dkcmF3KCkgKyAKICBkcmF3X2xhYmVsKAogICAgZXhwcmVzc2lvbih+Nl50aH4iLSJ+MTJedGh+ImdyYWRlcnMsIHVud2VpZ2h0ZWQiKSwKICAgIHNpemU9MTIsCiAgICB4ID0gMC41KSArCiAgdGhlbWUoCiAgICBwbG90Lm1hcmdpbiA9IG1hcmdpbigwLCAwLCAwLCAwKQogICkKCnN1YnRpdGxlX3dfZmluYWwgPC0gZ2dkcmF3KCkgKyAKICBkcmF3X2xhYmVsKAogICAgZXhwcmVzc2lvbih+Nl50aH4iLSJ+MTJedGh+ImdyYWRlcnMsIHdlaWdodGVkIiksCiAgICBmb250ZmFjZSA9ICdib2xkJywKICAgIHNpemU9MTIsCiAgICB4ID0gMC41KSArCiAgdGhlbWUoCiAgICBwbG90Lm1hcmdpbiA9IG1hcmdpbigwLCAwLCAwLCAwKQogICkKCnN1YnRpdGxlX3dfOF9maW5hbCA8LSBnZ2RyYXcoKSArIAogIGRyYXdfbGFiZWwoCiAgICBleHByZXNzaW9uKH44XnRofiJncmFkZXJzIGluIDIwMTUsIHdlaWdodGVkIiksCiAgICBmb250ZmFjZSA9ICdib2xkJywKICAgIHNpemU9MTIsCiAgICB4ID0gMC41KSArCiAgdGhlbWUoCiAgICBwbG90Lm1hcmdpbiA9IG1hcmdpbigwLCAwLCAwLCAwKQogICkKCnN1YnRpdGxlX2ZpbmFsIDwtIHBsb3RfZ3JpZChzdWJ0aXRsZV91d19maW5hbCwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIHN1YnRpdGxlX3dfZmluYWwsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBzdWJ0aXRsZV93XzhfZmluYWwsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBuY29sID0gMykKCnBsb3RzQV90aXRsZV9maW5hbCA8LSBnZ2RyYXcoKSArIAogIGRyYXdfbGFiZWwoCiAgICBleHByZXNzaW9uKCJQcmV2YWxlbmNlIG9mIGUtY2lnYXJldHRlIHVzZSBieSB1c2VyIHR5cGUiKSwKICAgIHNpemU9MTQsCiAgICB4ID0gMC41KSArCiAgdGhlbWUoCiAgICBwbG90Lm1hcmdpbiA9IG1hcmdpbigwLCAwLCAwLCAwKQogICkKCnBsb3RzQV9maW5hbCA8LSBwbG90X2dyaWQocGxvdEFfdXcgKyB0aGVtZShwbG90LnRpdGxlID0gZWxlbWVudF9ibGFuaygpKSwKICAgICAgICAgICAgICAgICAgICAgICAgICBwbG90QV93ICsgdGhlbWUocGxvdC50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSksCiAgICAgICAgICAgICAgICAgICAgICAgICAgcGxvdEFfd184ICsgdGhlbWUocGxvdC50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSksCiAgICAgICAgICAgICAgICAgICAgICAgICAgbmNvbCA9IDMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgYWxpZ24gPSAidiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgYXhpcyA9ICJidCIpCgpwbG90c0JfdGl0bGVfZmluYWwgPC0gZ2dkcmF3KCkgKyAKICBkcmF3X2xhYmVsKAogICAgZXhwcmVzc2lvbigiUHJldmFsZW5jZSBvZiBldmVyIHVzZSBieSBwcm9kdWN0IHR5cGUiKSwKICAgIHNpemU9MTQsCiAgICB4ID0gMC41KSArCiAgdGhlbWUoCiAgICBwbG90Lm1hcmdpbiA9IG1hcmdpbigwLCAwLCAwLCAwKQogICkKCnBsb3RzQl9maW5hbCA8LSBwbG90X2dyaWQocGxvdEJfdXcgKyB0aGVtZShwbG90LnRpdGxlID0gZWxlbWVudF9ibGFuaygpKSwKICAgICAgICAgICAgICAgICAgICAgICAgICBwbG90Ql93ICsgdGhlbWUocGxvdC50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSksCiAgICAgICAgICAgICAgICAgICAgICAgICAgcGxvdEJfd184ICsgdGhlbWUocGxvdC50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSksCiAgICAgICAgICAgICAgICAgICAgICAgICAgbmNvbCA9IDMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgYWxpZ24gPSAidiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgYXhpcyA9ICJidCIpCgpwbG90c0NfdGl0bGVfZmluYWwgPC0gZ2dkcmF3KCkgKyAKICBkcmF3X2xhYmVsKAogICAgZXhwcmVzc2lvbigiUHJldmFsZW5jZSBvZiBuaWNvdGluZSBwcm9kdWN0IHVzZSBieSBwcm9kdWN0ICYgdXNlciB0eXBlIiksCiAgICBzaXplPTE0LAogICAgeCA9IDAuNSkgKwogIHRoZW1lKAogICAgcGxvdC5tYXJnaW4gPSBtYXJnaW4oMCwgMCwgMCwgMCkKICApCgpwbG90c0NfZmluYWwgPC0gcGxvdF9ncmlkKHBsb3RDX3V3ICsgdGhlbWUocGxvdC50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSksCiAgICAgICAgICAgICAgICAgICAgICAgICAgcGxvdENfdyArIHRoZW1lKHBsb3QudGl0bGUgPSBlbGVtZW50X2JsYW5rKCkpLAogICAgICAgICAgICAgICAgICAgICAgICAgIHBsb3RDX3dfOCArIHRoZW1lKHBsb3QudGl0bGUgPSBlbGVtZW50X2JsYW5rKCkpLAogICAgICAgICAgICAgICAgICAgICAgICAgIG5jb2wgPSAzLAogICAgICAgICAgICAgICAgICAgICAgICAgIGFsaWduID0gInYiLAogICAgICAgICAgICAgICAgICAgICAgICAgIGF4aXMgPSAiYnQiKQoKbGVnZW5kX2ZpbmFsIDwtIGdldF9sZWdlbmQocGxvdDggKwogICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxlZ2VuZC5kaXJlY3Rpb24gPSAiaG9yaXpvbnRhbCIpKQoKZmluYWxfcGxvdCA8LSBwbG90X2dyaWQodGl0bGVfZmluYWwsCiAgICAgICAgICBwbG90c0FfdGl0bGVfZmluYWwsCiAgICAgICAgICBzdWJ0aXRsZV9maW5hbCwKICAgICAgICAgIHBsb3RzQV9maW5hbCwKICAgICAgICAgIHBsb3RzQl90aXRsZV9maW5hbCwKICAgICAgICAgIHN1YnRpdGxlX2ZpbmFsLAogICAgICAgICAgcGxvdHNCX2ZpbmFsLAogICAgICAgICAgcGxvdHNDX3RpdGxlX2ZpbmFsLAogICAgICAgICAgc3VidGl0bGVfZmluYWwsCiAgICAgICAgICBwbG90c0NfZmluYWwsCiAgICAgICAgICBsZWdlbmRfZmluYWwsCiAgICAgICAgICBuY29sID0gMSwKICAgICAgICAgIHJlbF9oZWlnaHRzID0gYygwLjIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgMC4yLAogICAgICAgICAgICAgICAgICAgICAgICAgIDAuMSwKICAgICAgICAgICAgICAgICAgICAgICAgICAxLAogICAgICAgICAgICAgICAgICAgICAgICAgIDAuMiwKICAgICAgICAgICAgICAgICAgICAgICAgICAwLjEsCiAgICAgICAgICAgICAgICAgICAgICAgICAgMSwKICAgICAgICAgICAgICAgICAgICAgICAgICAwLjIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgMC4xLAogICAgICAgICAgICAgICAgICAgICAgICAgIDEsCiAgICAgICAgICAgICAgICAgICAgICAgICAgMC4xKSkKCmZpbmFsX3Bsb3QKYGBgCgpgYGB7ciwgZWNobz1GQUxTRSwgaW5jbHVkZT1GQUxTRX0KZ2dzYXZlKGhlcmU6OmhlcmUoImltZyIsICJmaW5hbF9wbG90LnBuZyIpKQpgYGAKCiMjICoqU3VnZ2VzdGVkIEhvbWV3b3JrKioKKioqIAoKPHN0eWxlPgpkaXYuYmx1ZSB7IGJhY2tncm91bmQtY29sb3I6I2U2ZjBmZjsgYm9yZGVyLXJhZGl1czogNXB4OyBwYWRkaW5nOiAyMHB4O30KPC9zdHlsZT4KPGRpdiBjbGFzcyA9ICJibHVlIj4KCisgQXBwbHkgc3VydmV5IHdlaWdodHMgdG8gb25lIG9mIHRoZSBmaWd1cmVzIHByb2R1Y2VkIGluIHRoaXMgY2FzZSBzdHVkeSBpbiB3aGljaCB3ZWlnaHRlZCBlc3RpbWF0ZXMgd2VyZSBub3QgcHJvZHVjZWQuIEluY2x1ZGUgZXJyb3IgYmFycyBpbiB0aGUgdXBkYXRlZCBmaWd1cmUuCiAgICArIERvZXMgdGhlIGZpZ3VyZSBjaGFuZ2UgYWZ0ZXIgdGhlIGFwcGxpY2F0aW9uIG9mIHN1cnZleSB3ZWlnaHRzPwogICAgKyBJZiBzbywgZGVzY3JpYmUgaG93LiAKKyBSZXByb2R1Y2UgYGZpbmFsX3Bsb3RgIGFib3ZlIGZvciBhIGRpZmZlcmVudCBjb2hvcnQgb2YgeW91ciBjaG9pY2UuCgo8L2Rpdj4KCiMjIyBOb3RlcwoKRXZlciBhbmQgY3VycmVudCB2YXJpYWJsZXMgYXJlIGxpbWl0ZWQgdG8gdGhvc2Ugc2hhcmVkIGJ5IGFsbCB5ZWFycyBvZiBkYXRhIGluY2x1ZGVkIGluIHRoaXMgY2FzZSBzdHVkeS4KCmBgYHtyLCBlY2hvPUZBTFNFfQprbml0X3RpbWVfZW5kIDwtIFN5cy50aW1lKCkKYGBgCgpgYGB7ciwgZWNobz1GQUxTRX0Ka25pdF90aW1lIDwtIGtuaXRfdGltZV9lbmQgLSBrbml0X3RpbWVfc3RhcnQKa25pdF90aW1lX21lc3NhZ2UgPC0gcGFzdGUoIktuaXQgdGltZToiLAogICAgICByb3VuZChhcy5udW1lcmljKGtuaXRfdGltZSkgLDMpLAogICAgICB1bml0cyhrbml0X3RpbWUpCiAgICAgICkKYGBgCgo8cCBzdHlsZT0iY29sb3I6cmVkIj5OZXcgY29kZTogYHIga25pdF90aW1lX21lc3NhZ2VgLiBQcmV2aW91cyBjb2RlOiB+IDMgbS4gPC9wPgoKIyMjIFByb2JsZW1zCgpJIGhhZCBkaWZmaWN1bHR5IHByb2R1Y2luZyBhIHBsb3QgdGhhdCBzdWNjaW5jdGx5IHByZXNlbnRlZCBhIHRyZW5kLiBJdCdzIHZlcnkgZWFzeSB0byBwcm9kdWNlIHBsb3RzIHRoYXQgYXJlIHZlcnkgdXNlZnVsIG9uY2Ugb25lIGlzIGZhbWlsaWFyIHdpdGggdGhlIGRhdGEuIFNvbWUgcGxvdHMsIGhvd2V2ZXIsIGNhbm5vdCBzdGFuZCBhbG9uZSBhbmQgbmVlZCBhZGRpdGlvbmFsIGNvbnRleHQgdG8gYmUgY2xlYXIgZm9yIHRob3NlIHdpdGhvdXQgcHJpb3Iga25vd2xlZGdlIG9mIHRoZSBkYXRhLiBXaGVuIEkgZmlyc3Qgc2hhcmVkIGEgcGxvdCBJIGhhZCBiZWVuIHdvcmtpbmcgb24gd2l0aCBvdGhlcnMsIGl0IGJlY2FtZSBjbGVhciB0aGF0IGluIG15IGVmZm9ydCB0byBwcmVzZW50IGEgY29tcGxpY2F0ZWQgaWRlYSBicmllZmx5IEkgaGFkIGxlZnQgb3V0IGluZm9ybWF0aW9uIHRoYXQgd291bGQgbWFrZSB0aGUgdHJlbmQgZWFzaWx5IGludGVycHJldGFibGUuIFRvIHNvbHZlIHRoaXMgaXNzdWUsIEkgYmVnYW4gdG8gcHJlc2VudCB2aXN1YWxpemF0aW9ucyBvZiB0aGUgZGF0YSBhbG9uZ3NpZGUgbXkgb3JpZ2luYWwgcGxvdC4gVGhlIGZpbmFsIGZpZ3VyZSBJIGNyZWF0ZWQgY29udGFpbmVkIHNldmVyYWwgYWRkaXRpb25hbCBwbG90cywgZWFjaCBwcmVzZW50aW5nIHRoZSBzYW1lIHRyZW5kIGF0IGEgZGlmZmVyZW50IGxldmVsIHRoYW4gbXkgaW5pdGlhbCBwbG90LgoKTXkgImNlbnRlcnBpZWNlIiBwbG90IGlzIHRoZSBtaWRkbGUgcGxvdCBpbiBgZmluYWxfcGxvdGAuIFRoZSA4IHBsb3RzIGFyb3VuZCBpdCBoZWxwIHByb3ZpZGUgYSB2ZXJ5IGNsZWFyIHBpY3R1cmUgb2Ygd2hhdCBpcyBnb2luZyBvbiBpbiB0aGUgVVMgd2l0aCByZWdhcmRzIHRvIGUtY2lnYXJldHRlIHVzZSBhbmQgbmljb3RpbmUgcHJvZHVjdCB1c2UgYXQgbGFyZ2UuIE9uIGl0cyBvd24sIGl0J3MgZGlmZmljdWx0IHRvIHVuZGVyc3RhbmQgdGhlIHRyZW5kcyBpbiB0aGUgVVMgYW5kIGhvdyBpbXBvcnRhbnQgdGhlIHdlaWdodGluZyBzY2hlbWUgaXMgZm9yIGluZmVyZW5jZS4gT25jZSB5b3UgYWRkIHRoZSBsZWZ0IGFuZCByaWdodCBjb2x1bW5zLCBpdCdzIGNsZWFyIHdoYXQgaXMgZ29pbmcgb24uIAoKCgojIyAqKkRhdGEgQW5hbHlzaXMqKgoqKiogCgojIyMgKipjb250ZW50IGhlYWRlcioqCioqKiAKCgoKIyMgKipTdW1tYXJ5KioKKioqIAogY29vbCB2aXN1YWxpemF0aW9uIHRoYXQgc3VtbWFyaXplcyBldmVyeXRoaW5nLi4uIGNvdWxkIGFkZCB0aGlzIHNvbWV3aGVyZTogaHR0cHM6Ly93d3cuZmRhLmdvdi90b2JhY2NvLXByb2R1Y3RzL3lvdXRoLWFuZC10b2JhY2NvL3lvdXRoLXRvYmFjY28tdXNlLXJlc3VsdHMtbmF0aW9uYWwteW91dGgtdG9iYWNjby1zdXJ2ZXkKCgoKIyMgKipIZWxwZnVsIExpbmtzKioKKioqIAoKcmV2aWV3IG9mIFt0aWR5bW9kZWxzXShodHRwczovL3J2aWV3cy5yc3R1ZGlvLmNvbS8yMDE5LzA2LzE5L2EtZ2VudGxlLWludHJvLXRvLXRpZHltb2RlbHMvKXt0YXJnZXQ9Il9ibGFuayJ9IAoKZ3VpZGUgZm9yIFtwcmVwcm9jZXNzaW5nIHdpdGggcmVjaXBlc10oaHR0cDovL3d3dy5yZWJlY2NhYmFydGVyLmNvbS9ibG9nLzIwMTktMDYtMDZfcHJlX3Byb2Nlc3NpbmcvKQoKCiMjICoqU2Vzc2lvbiBpbmZvKioKKioqCgpgYGB7cn0Kc2Vzc2lvbkluZm8oKQpgYGA=